﻿Public Class MobEditorDropDynamic
    Inherits System.Windows.Forms.Form
    Implements IMessageFilter
    Private WM_KEYDOWN As Integer = &H100
    Private WM_KEYUP As Integer = &H101

    Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
        Dim keyCode As Keys = CType(CInt(m.WParam), Keys) And Keys.KeyCode
        If m.Msg = WM_KEYDOWN And keyCode = Keys.Escape Then
            Me.Close()
            Application.RemoveMessageFilter(Me) : Return True
        End If
        Return False
    End Function 'PreFilterMessage
    Public RETURNval As String
    Private Sub Money_willbeatleastchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Money_Willbeatleast.CheckedChanged
        If Money_Willbeatleast.Checked = True Then
            Money_atleastvern.Enabled = True
            Money_atleastdover.Enabled = True
            Money_atleastsovern.Enabled = True
            Money_Fixed.Checked = False
            Money_Fixed.Enabled = False
            Money_fixedvern.Enabled = False : Money_fixedvern.Text = "0"
            Money_fixeddover.Enabled = False : Money_fixeddover.Text = "0"
            Money_fixedsovern.Enabled = False : Money_fixedsovern.Text = "0"
        Else
            Money_atleastvern.Text = "0"
            Money_atleastdover.Text = "0"
            Money_atleastsovern.Text = "0"
            Money_atleastvern.Enabled = False
            Money_atleastdover.Enabled = False
            Money_atleastsovern.Enabled = False
            If Money_Willnotexcede.Checked = False Then
                Money_Fixed.Enabled = True
            End If
        End If
    End Sub

    Private Sub Money_willnotexcedechange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Money_Willnotexcede.CheckedChanged
        If Money_Willnotexcede.Checked = True Then
            Money_notexcedevern.Enabled = True
            Money_notexcededover.Enabled = True
            Money_notexcedesovern.Enabled = True
            Money_Fixed.Checked = False
            Money_Fixed.Enabled = False
            Money_fixedvern.Enabled = False : Money_fixedvern.Text = "0"
            Money_fixeddover.Enabled = False : Money_fixeddover.Text = "0"
            Money_fixedsovern.Enabled = False : Money_fixedsovern.Text = "0"
        Else
            Money_notexcedevern.Text = "0"
            Money_notexcededover.Text = "0"
            Money_notexcedesovern.Text = "0"
            Money_notexcedevern.Enabled = False
            Money_notexcededover.Enabled = False
            Money_notexcedesovern.Enabled = False
            If Money_Willbeatleast.Checked = False Then
                Money_Fixed.Enabled = True
            End If
        End If
    End Sub

    Private Sub Money_fixedamountchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Money_Fixed.CheckedChanged
        If Money_Fixed.Checked = True Then
            Money_fixedvern.Enabled = True
            Money_fixeddover.Enabled = True
            Money_fixedsovern.Enabled = True
            Money_Willnotexcede.Checked = False : Money_Willbeatleast.Checked = False
            Money_notexcedevern.Enabled = False : Money_atleastvern.Enabled = False
            Money_notexcedevern.Text = "0" : Money_atleastvern.Text = "0"
            Money_notexcededover.Enabled = False : Money_atleastdover.Enabled = False
            Money_notexcededover.Text = "0" : Money_atleastvern.Text = "0"
            Money_notexcedesovern.Enabled = False : Money_atleastsovern.Enabled = False
            Money_notexcedesovern.Text = "0" : Money_atleastsovern.Text = "0"
        Else
            Money_fixedvern.Text = "0"
            Money_fixeddover.Text = "0"
            Money_fixedsovern.Text = "0"
            Money_fixedvern.Enabled = False
            Money_fixeddover.Enabled = False
            Money_fixedsovern.Enabled = False
            Money_Willnotexcede.Enabled = True : Money_Willbeatleast.Enabled = True
        End If
    End Sub

    Private Sub wealthychange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Money_Wealthy.CheckedChanged
        If Money_Wealthy.Checked = True Then
            Money_Welltodo.Checked = False
            Money_Regular.Checked = False
            Money_Notsowealthy.Checked = False
            Money_Poor.Checked = False
        End If
    End Sub

    Private Sub welltodochange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Money_Welltodo.CheckedChanged
        If Money_Welltodo.Checked = True Then
            Money_Wealthy.Checked = False
            Money_Regular.Checked = False
            Money_Notsowealthy.Checked = False
            Money_Poor.Checked = False
        End If
    End Sub

    Private Sub regularchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Money_Regular.CheckedChanged
        If Money_Regular.Checked = True Then
            Money_Wealthy.Checked = False
            Money_Welltodo.Checked = False
            Money_Notsowealthy.Checked = False
            Money_Poor.Checked = False
        End If
    End Sub

    Private Sub notsowealthychange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Money_Notsowealthy.CheckedChanged
        If Money_Notsowealthy.Checked = True Then
            Money_Wealthy.Checked = False
            Money_Welltodo.Checked = False
            Money_Regular.Checked = False
            Money_Poor.Checked = False
        End If
    End Sub

    Private Sub poorchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Money_Poor.CheckedChanged
        If Money_Poor.Checked = True Then
            Money_Wealthy.Checked = False
            Money_Welltodo.Checked = False
            Money_Regular.Checked = False
            Money_Notsowealthy.Checked = False
        End If
    End Sub

    Private Sub FixedWeaponTypechange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Weapon_FixedType.CheckedChanged
        If Weapon_FixedType.Checked = True Then
            WeaponType.Enabled = True
        Else
            WeaponType.Enabled = False
        End If
    End Sub

    Private Sub fixedweaponmaterialchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Weapon_FixedMaterial.CheckedChanged
        If Weapon_FixedMaterial.Checked = True Then
            WeaponMaterial.Enabled = True
        Else
            WeaponMaterial.Enabled = False
        End If
    End Sub

    Private Sub weaponfixedcraftsmanship(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Weapon_FixedCraftsmanship.CheckedChanged
        If Weapon_FixedCraftsmanship.Checked = True Then
            WeaponCraftsmanship.Enabled = True
        Else
            WeaponCraftsmanship.Enabled = False
        End If
    End Sub

    Private Sub weaponfixedqualitychange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Weapon_FixedQuality.CheckedChanged
        If Weapon_FixedQuality.Checked = True Then
            WeaponQuality.Enabled = True
        Else
            WeaponQuality.Enabled = False
        End If
    End Sub

    Private Sub weaponprefixchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Weapon_FixedPrefix.CheckedChanged
        If Weapon_FixedPrefix.Checked = True Then
            WeaponPrefix.Enabled = True
        Else
            WeaponPrefix.Enabled = False
        End If
    End Sub

    Private Sub fixedweaponsuffixchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Weapon_FixedSuffix.CheckedChanged
        If Weapon_FixedSuffix.Checked = True Then
            WeaponSuffix.Enabled = True
        Else
            WeaponSuffix.Enabled = False
        End If
    End Sub

    Private Sub fixedarmortypechange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Armor_FixedType.CheckedChanged
        If Armor_FixedType.Checked = True Then
            ArmorTypeBox.Enabled = True
        Else
            ArmorTypeBox.Enabled = False
        End If
    End Sub

    Private Sub armorfixedmaterialchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Armor_FixedMaterial.CheckedChanged
        If Armor_FixedMaterial.Checked = True Then
            ArmorMaterialBox.Enabled = True
        Else
            ArmorMaterialBox.Enabled = False
        End If
    End Sub

    Private Sub armorfixedcraftsmanshipchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Armor_FixedCraftsmanship.CheckedChanged
        If Armor_FixedCraftsmanship.Checked = True Then
            ArmorCraftsmanshipBox.Enabled = True
        Else
            ArmorCraftsmanshipBox.Enabled = False
        End If
    End Sub

    Private Sub armorqualitychange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Armor_FixedQuality.CheckedChanged
        If Armor_FixedQuality.Checked = True Then
            ArmorQualityBox.Enabled = True
        Else
            ArmorQualityBox.Enabled = False
        End If
    End Sub

    Private Sub armorfixedprefixchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Armor_FixedPrefix.CheckedChanged
        If Armor_FixedPrefix.Checked = True Then
            ArmorPrefixBox.Enabled = True
        Else
            ArmorPrefixBox.Enabled = False
        End If
    End Sub

    Private Sub fixedarmorsuffixchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Armor_FixedSuffix.CheckedChanged
        If Armor_FixedSuffix.Checked = True Then
            ArmorSuffixBox.Enabled = True
        Else
            ArmorSuffixBox.Enabled = False
        End If
    End Sub

    Private Sub fixedmiscellaneoustypechange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Miscellaneous_FixedType.CheckedChanged
        If Miscellaneous_FixedType.Checked = True Then
            MISCTYPE.Enabled = True
            ListBox1.Enabled = True
        Else
            MISCTYPE.Enabled = False
            ListBox1.Enabled = False
        End If
    End Sub

    Private Sub moneytypechecked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropMoney.CheckedChanged
        If DropMoney.Checked = True Then
            Rational_Money.Enabled = True
            Money_DefaultSentience.Enabled = True
            Money_DepLevel.Enabled = True
            Money_Wealthy.Enabled = True
            Money_Welltodo.Enabled = True
            Money_Regular.Enabled = True
            Money_Notsowealthy.Enabled = True
            Money_Poor.Enabled = True
            If Money_Willbeatleast.Checked = True Then
                Money_atleastvern.Enabled = True
                Money_atleastdover.Enabled = True
                Money_atleastsovern.Enabled = True
            End If
            Money_Fixed.Enabled = True
            If Money_Fixed.Checked = True Then
                Money_fixedvern.Enabled = True
                Money_fixeddover.Enabled = True
                Money_fixedsovern.Enabled = True
            End If
            If Money_Willnotexcede.Checked = True Then
                Money_notexcedevern.Enabled = True
                Money_notexcededover.Enabled = True
                Money_notexcedesovern.Enabled = True
            End If
            Money_Willbeatleast.Enabled = True
            Money_Willnotexcede.Enabled = True
            Weapon_DefaultWeight.Enabled = False
            Armor_DefaultWeight.Enabled = False
            Rational_WeaponArchetype.Enabled = False
            Weapon_DefaultLevel.Enabled = False
            Weapon_DefaultSentience.Enabled = False
            Weapon_LuckyClass.Enabled = False
            Weapon_LuckyLevel.Enabled = False
            Weapon_FixedCraftsmanship.Enabled = False
            Weapon_FixedMaterial.Enabled = False
            Weapon_FixedPrefix.Enabled = False
            Weapon_FixedQuality.Enabled = False
            Weapon_FixedSuffix.Enabled = False
            Weapon_FixedType.Enabled = False
            WeaponType.Enabled = False
            WeaponCraftsmanship.Enabled = False
            WeaponMaterial.Enabled = False
            WeaponQuality.Enabled = False
            WeaponPrefix.Enabled = False
            WeaponSuffix.Enabled = False
            Rational_Armor.Enabled = False
            Armor_DefaultLevel.Enabled = False
            Armor_DefaultSentience.Enabled = False
            Armor_LuckyClass.Enabled = False
            Armor_LuckyLevel.Enabled = False
            Armor_FixedCraftsmanship.Enabled = False
            Armor_FixedMaterial.Enabled = False
            Armor_FixedPrefix.Enabled = False
            Armor_FixedQuality.Enabled = False
            Armor_FixedSuffix.Enabled = False
            Armor_FixedType.Enabled = False
            ArmorTypeBox.Enabled = False
            ArmorCraftsmanshipBox.Enabled = False
            ArmorMaterialBox.Enabled = False
            ArmorQualityBox.Enabled = False
            ArmorPrefixBox.Enabled = False
            ArmorSuffixBox.Enabled = False
            Rational_MiscellaneousArchetype.Enabled = False
            Miscellaneous_DefaultLevel.Enabled = False
            Miscellaneous_DefaultSentience.Enabled = False
            Miscellaneous_DefaultWeight.Enabled = False
            Miscellaneous_FixedType.Enabled = False
            MISCTYPE.Enabled = False
            ListBox1.Enabled = False
        End If
    End Sub

    Private Sub weapontypechecked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropWeapon.CheckedChanged
        If DropWeapon.Checked = True Then
            Rational_Money.Enabled = False
            Money_DepLevel.Enabled = False
            Money_Wealthy.Enabled = False
            Money_Welltodo.Enabled = False
            Money_Regular.Enabled = False
            Money_Notsowealthy.Enabled = False
            Money_Poor.Enabled = False
            Money_atleastvern.Enabled = False
            Money_atleastdover.Enabled = False
            Money_atleastsovern.Enabled = False
            Money_DefaultSentience.Enabled = False
            Weapon_DefaultWeight.Enabled = True
            Armor_DefaultWeight.Enabled = False
            Money_Fixed.Enabled = False
            Money_fixedvern.Enabled = False
            Money_fixeddover.Enabled = False
            Money_fixedsovern.Enabled = False
            Money_notexcedevern.Enabled = False
            Money_notexcededover.Enabled = False
            Money_notexcedesovern.Enabled = False
            Money_Willbeatleast.Enabled = False
            Money_Willnotexcede.Enabled = False
            Rational_WeaponArchetype.Enabled = True
            Weapon_DefaultLevel.Enabled = True
            Weapon_DefaultSentience.Enabled = True
            Weapon_LuckyClass.Enabled = True
            Weapon_LuckyLevel.Enabled = True
            Weapon_FixedCraftsmanship.Enabled = True
            Weapon_FixedMaterial.Enabled = True
            Weapon_FixedPrefix.Enabled = True
            Weapon_FixedQuality.Enabled = True
            Weapon_FixedSuffix.Enabled = True
            Weapon_FixedType.Enabled = True
            If Weapon_FixedType.Checked = True Then
                WeaponType.Enabled = True
            End If
            If Weapon_FixedCraftsmanship.Checked = True Then
                WeaponCraftsmanship.Enabled = True
            End If
            If Weapon_FixedMaterial.Checked = True Then
                WeaponMaterial.Enabled = True
            End If
            If Weapon_FixedQuality.Checked = True Then
                WeaponQuality.Enabled = True
            End If
            If Weapon_FixedPrefix.Checked = True Then
                WeaponPrefix.Enabled = True
            End If
            If Weapon_FixedSuffix.Checked = True Then
                WeaponSuffix.Enabled = True
            End If
            Rational_Armor.Enabled = False
            Armor_DefaultLevel.Enabled = False
            Armor_DefaultSentience.Enabled = False
            Armor_LuckyClass.Enabled = False
            Armor_LuckyLevel.Enabled = False
            Armor_FixedCraftsmanship.Enabled = False
            Armor_FixedMaterial.Enabled = False
            Armor_FixedPrefix.Enabled = False
            Armor_FixedQuality.Enabled = False
            Armor_FixedSuffix.Enabled = False
            Armor_FixedType.Enabled = False
            ArmorTypeBox.Enabled = False
            ArmorCraftsmanshipBox.Enabled = False
            ArmorMaterialBox.Enabled = False
            ArmorQualityBox.Enabled = False
            ArmorPrefixBox.Enabled = False
            ArmorSuffixBox.Enabled = False
            Rational_MiscellaneousArchetype.Enabled = False
            Miscellaneous_DefaultLevel.Enabled = False
            Miscellaneous_DefaultSentience.Enabled = False
            Miscellaneous_DefaultWeight.Enabled = False
            Miscellaneous_FixedType.Enabled = False
            MISCTYPE.Enabled = False
            ListBox1.Enabled = False
        End If
    End Sub

    Private Sub armortypechecked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropArmor.CheckedChanged
        If DropArmor.Checked = True Then
            Rational_Money.Enabled = False
            Money_DepLevel.Enabled = False
            Money_Wealthy.Enabled = False
            Money_Welltodo.Enabled = False
            Money_Regular.Enabled = False
            Money_Notsowealthy.Enabled = False
            Money_Poor.Enabled = False
            Money_DefaultSentience.Enabled = False
            Armor_DefaultWeight.Enabled = True
            Weapon_DefaultWeight.Enabled = False
            Money_atleastvern.Enabled = False
            Money_atleastdover.Enabled = False
            Money_atleastsovern.Enabled = False
            Money_Fixed.Enabled = False
            Money_fixedvern.Enabled = False
            Money_fixeddover.Enabled = False
            Money_fixedsovern.Enabled = False
            Money_notexcedevern.Enabled = False
            Money_notexcededover.Enabled = False
            Money_notexcedesovern.Enabled = False
            Money_Willbeatleast.Enabled = False
            Money_Willnotexcede.Enabled = False
            Rational_WeaponArchetype.Enabled = False
            Weapon_DefaultLevel.Enabled = False
            Weapon_DefaultSentience.Enabled = False
            Weapon_LuckyClass.Enabled = False
            Weapon_LuckyLevel.Enabled = False
            Weapon_FixedCraftsmanship.Enabled = False
            Weapon_FixedMaterial.Enabled = False
            Weapon_FixedPrefix.Enabled = False
            Weapon_FixedQuality.Enabled = False
            Weapon_FixedSuffix.Enabled = False
            Weapon_FixedType.Enabled = False
            WeaponType.Enabled = False
            WeaponCraftsmanship.Enabled = False
            WeaponMaterial.Enabled = False
            WeaponQuality.Enabled = False
            WeaponPrefix.Enabled = False
            WeaponSuffix.Enabled = False
            Rational_Armor.Enabled = True
            Armor_DefaultLevel.Enabled = True
            Armor_DefaultSentience.Enabled = True
            Armor_LuckyClass.Enabled = True
            Armor_LuckyLevel.Enabled = True
            Armor_FixedCraftsmanship.Enabled = True
            Armor_FixedMaterial.Enabled = True
            Armor_FixedPrefix.Enabled = True
            Armor_FixedQuality.Enabled = True
            Armor_FixedSuffix.Enabled = True
            Armor_FixedType.Enabled = True
            If Armor_FixedType.Checked = True Then
                ArmorTypeBox.Enabled = True
            End If
            If Armor_FixedCraftsmanship.Checked = True Then
                ArmorCraftsmanshipBox.Enabled = True
            End If
            If Armor_FixedMaterial.Checked = True Then
                ArmorMaterialBox.Enabled = True
            End If
            If Armor_FixedQuality.Checked = True Then
                ArmorQualityBox.Enabled = True
            End If
            If Armor_FixedPrefix.Checked = True Then
                ArmorPrefixBox.Enabled = True
            End If
            If Armor_FixedSuffix.Checked = True Then
                ArmorSuffixBox.Enabled = True
            End If
            Rational_MiscellaneousArchetype.Enabled = False
            Miscellaneous_DefaultLevel.Enabled = False
            Miscellaneous_DefaultSentience.Enabled = False
            Miscellaneous_DefaultWeight.Enabled = False
            Miscellaneous_FixedType.Enabled = False
            MISCTYPE.Enabled = False
            ListBox1.Enabled = False
        End If
    End Sub

    Private Sub misctypechecked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropMiscellaneous.CheckedChanged
        If DropMiscellaneous.Checked = True Then
            Rational_Money.Enabled = False
            Money_DepLevel.Enabled = False
            Money_Wealthy.Enabled = False
            Money_Welltodo.Enabled = False
            Money_Regular.Enabled = False
            Money_Notsowealthy.Enabled = False
            Money_Poor.Enabled = False
            Money_atleastvern.Enabled = False
            Money_atleastdover.Enabled = False
            Money_atleastsovern.Enabled = False
            Money_Fixed.Enabled = False
            Money_DefaultSentience.Enabled = False
            Weapon_DefaultWeight.Enabled = False
            Armor_DefaultWeight.Enabled = False
            Money_fixedvern.Enabled = False
            Money_fixeddover.Enabled = False
            Money_fixedsovern.Enabled = False
            Money_notexcedevern.Enabled = False
            Money_notexcededover.Enabled = False
            Money_notexcedesovern.Enabled = False
            Money_Willbeatleast.Enabled = False
            Money_Willnotexcede.Enabled = False
            Rational_WeaponArchetype.Enabled = False
            Weapon_DefaultLevel.Enabled = False
            Weapon_DefaultSentience.Enabled = False
            Weapon_LuckyClass.Enabled = False
            Weapon_LuckyLevel.Enabled = False
            Weapon_FixedCraftsmanship.Enabled = False
            Weapon_FixedMaterial.Enabled = False
            Weapon_FixedPrefix.Enabled = False
            Weapon_FixedQuality.Enabled = False
            Weapon_FixedSuffix.Enabled = False
            Weapon_FixedType.Enabled = False
            WeaponType.Enabled = False
            WeaponCraftsmanship.Enabled = False
            WeaponMaterial.Enabled = False
            WeaponQuality.Enabled = False
            WeaponPrefix.Enabled = False
            WeaponSuffix.Enabled = False
            Rational_Armor.Enabled = False
            Armor_DefaultLevel.Enabled = False
            Armor_DefaultSentience.Enabled = False
            Armor_LuckyClass.Enabled = False
            Armor_LuckyLevel.Enabled = False
            Armor_FixedCraftsmanship.Enabled = False
            Armor_FixedMaterial.Enabled = False
            Armor_FixedPrefix.Enabled = False
            Armor_FixedQuality.Enabled = False
            Armor_FixedSuffix.Enabled = False
            Armor_FixedType.Enabled = False
            ArmorTypeBox.Enabled = False
            ArmorCraftsmanshipBox.Enabled = False
            ArmorMaterialBox.Enabled = False
            ArmorQualityBox.Enabled = False
            ArmorPrefixBox.Enabled = False
            ArmorSuffixBox.Enabled = False
            Rational_MiscellaneousArchetype.Enabled = True
            Miscellaneous_DefaultLevel.Enabled = True
            Miscellaneous_DefaultSentience.Enabled = True
            Miscellaneous_DefaultWeight.Enabled = True
            Miscellaneous_FixedType.Enabled = True
            If Miscellaneous_FixedType.Checked = True Then
                MISCTYPE.Enabled = True
                ListBox1.Enabled = True
            End If
        End If
    End Sub

    Private Sub showmisctypes(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MISCTYPE.SelectedIndexChanged
        If MISCTYPE.Text = "00. Furniture" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Oak Armoire")
            ListBox1.Items.Add("001. Walnut Armoire")
            ListBox1.Items.Add("002. Mahogany Amoire")
            ListBox1.Items.Add("003. Satinwood Armoire")
            ListBox1.Items.Add("004. Small Oak Bookcase")
            ListBox1.Items.Add("005. Medium Oak Bookcase")
            ListBox1.Items.Add("006. Large Oak Bookcase")
            ListBox1.Items.Add("007. Small Walnut Bookcase")
            ListBox1.Items.Add("008. Medium Walnut Bookcase")
            ListBox1.Items.Add("009. Large Walnut Bookcase")
            ListBox1.Items.Add("010. small Mahogany Bookcase")
            ListBox1.Items.Add("011. Medium Mahogany Bookcase")
            ListBox1.Items.Add("012. Large Mahogany Bookcase")
            ListBox1.Items.Add("013. Small Satinwood Bookcase")
            ListBox1.Items.Add("014. Mediu Satinwood Bookcase")
            ListBox1.Items.Add("015. Large Satinwood bookcase")
            ListBox1.Items.Add("016. Oak Chifforobe")
            ListBox1.Items.Add("017. Walnut Chifforobe")
            ListBox1.Items.Add("018. Mahogany Chifforobe")
            ListBox1.Items.Add("019. Satinwood Chifforobe")
            ListBox1.Items.Add("020. Oak Chest")
            ListBox1.Items.Add("021. Walnut Chest")
            ListBox1.Items.Add("022. Mahogany Chest")
            ListBox1.Items.Add("023. Satinwood Chest")
            ListBox1.Items.Add("024. Oak Cassone")
            ListBox1.Items.Add("025. Walnut Cassone")
            ListBox1.Items.Add("026. Mahogany Cassone")
            ListBox1.Items.Add("027. Satinwood Cassone")
            ListBox1.Items.Add("028. Oak Cupboard")
            ListBox1.Items.Add("029. Oak Hall Tree")
            ListBox1.Items.Add("030. Walnut Hall Tree")
            ListBox1.Items.Add("031. Mahogany Hall Tree")
            ListBox1.Items.Add("032. Satinwood Hall Tree")
            ListBox1.Items.Add("033. Oak Hat Stand")
            ListBox1.Items.Add("034. Walnut Hat Stand")
            ListBox1.Items.Add("035. Mahogany Hat Stand")
            ListBox1.Items.Add("036. Satinwood Hat Stand")
            ListBox1.Items.Add("037. Oak Sideboard")
            ListBox1.Items.Add("038. Walnut Sideboard")
            ListBox1.Items.Add("039. Pine Sideboard")
            ListBox1.Items.Add("040. Mahogany Bergere")
            ListBox1.Items.Add("041. Satinwood Bergere")
            ListBox1.Items.Add("042. Marble Bergere")
            ListBox1.Items.Add("043. Oak Wicker Chair")
            ListBox1.Items.Add("044. Ash Splint Chair")
            ListBox1.Items.Add("045. Oak Splint Chair")
            ListBox1.Items.Add("046. Hickory Splint Chair")
            ListBox1.Items.Add("047. Oak Papasan Chair")
            ListBox1.Items.Add("048. Walnut Papasan Chair")
            ListBox1.Items.Add("049. Satinwood Papasan Chair")
            ListBox1.Items.Add("050. Walnut Savonarola Chair")
            ListBox1.Items.Add("051. Oak Wicker Armchair")
            ListBox1.Items.Add("052. Ash Splint Armchair")
            ListBox1.Items.Add("053. Oak Splint Armchair")
            ListBox1.Items.Add("054. Hickory Splint Armchair")
            ListBox1.Items.Add("055. Oak Papasan Armchair")
            ListBox1.Items.Add("056. Walnut Papasan Armchair")
            ListBox1.Items.Add("057. Satinwood Papasan Armchair")
            ListBox1.Items.Add("058. Walnut Savonarola Armchair")
            ListBox1.Items.Add("059. Oak Wicker Highchair")
            ListBox1.Items.Add("060. Ash Splint Highchair")
            ListBox1.Items.Add("061. Oak Splint Highchair")
            ListBox1.Items.Add("062. Hickory Splint Highchair")
            ListBox1.Items.Add("063. Oak Papasan Highchair")
            ListBox1.Items.Add("064. Walnut Papasan Highchair")
            ListBox1.Items.Add("065. Satinwood Papasan Highchair")
            ListBox1.Items.Add("066. Walnut Savonarola Highchair")
            ListBox1.Items.Add("067. Black Throne")
            ListBox1.Items.Add("068. Red Throne")
            ListBox1.Items.Add("069. Sopha")
            ListBox1.Items.Add("070. Fauteuil")
            ListBox1.Items.Add("071. Oak Footstool")
            ListBox1.Items.Add("072. Walnut Footstool")
            ListBox1.Items.Add("073. Pine Footstool")
            ListBox1.Items.Add("074. Oak Stool")
            ListBox1.Items.Add("075. Walnut Stool")
            ListBox1.Items.Add("076. Pine Stool")
            ListBox1.Items.Add("077. Tuffet")
            ListBox1.Items.Add("078. Oak Coffee Table")
            ListBox1.Items.Add("079. Walnut Coffee Table")
            ListBox1.Items.Add("080. Pine Coffee Table")
            ListBox1.Items.Add("081. Oak Dining Table")
            ListBox1.Items.Add("082. Walnut Dining Table")
            ListBox1.Items.Add("083. Mahogany Dining Table")
            ListBox1.Items.Add("084. Satinwood Dining Table")
            ListBox1.Items.Add("085. Oak Nightstand")
            ListBox1.Items.Add("086. Walnut Nightstand")
            ListBox1.Items.Add("088. Mahogany Nightstand")
            ListBox1.Items.Add("089. Satinwood Nightstand")
            ListBox1.Items.Add("090. Oak Rocker")
            ListBox1.Items.Add("091. Walnut Rocker")
            ListBox1.Items.Add("092. Mahogany Rocker")
            ListBox1.Items.Add("093. Satinwood Rocker")
            ListBox1.Items.Add("094. Walnut Rolltop Desk")
            ListBox1.Items.Add("095. Mahogany Rolltop Desk")
            ListBox1.Items.Add("096. Oak Study Table")
            ListBox1.Items.Add("097. Walnut Study Table")
            ListBox1.Items.Add("098. Mahogany Study Table")
            ListBox1.Items.Add("099. Satinwood Study Table")
            ListBox1.Items.Add("100. Oak Refectory Table")
            ListBox1.Items.Add("101. Walnut Refectory Table")
            ListBox1.Items.Add("102. Ash Refectory Table")
            ListBox1.Items.Add("103. Mahogany Refectory Table")
            ListBox1.Items.Add("104. Satinwood Refectory Table")
            ListBox1.Items.Add("105. Oak Nightstand")
            ListBox1.Items.Add("106. Walnut Nightstand")
            ListBox1.Items.Add("107. Pine Nightstand")
            ListBox1.Items.Add("108. Lectus Cubicularis")
            ListBox1.Items.Add("109. Lectus Discubitorius")
            ListBox1.Items.Add("110. Lectus Lucubratorius")
            ListBox1.Items.Add("111. Oak Bassinet")
            ListBox1.Items.Add("112. Oak Crib")
            ListBox1.Items.Add("113. Pine Crib")
            ListBox1.Items.Add("114. Oak Weapon Rack")
            ListBox1.Items.Add("115. Pine Weapon Rack")
            ListBox1.Items.Add("116. Oak Hat Rack")
            ListBox1.Items.Add("117. Pine Weapon Rack")
            ListBox1.Items.Add("118. Oak Clothes Rack")
            ListBox1.Items.Add("119. Pine Clothes Rack")
            ListBox1.Items.Add("120. Single Oak Bed")
            ListBox1.Items.Add("121. Double Oak Bed")
            ListBox1.Items.Add("122. Double Walnut Bed")
            ListBox1.Items.Add("123. Oak Bunk Bed")
            ListBox1.Items.Add("124. Walnut Bunk Bed")
            ListBox1.Items.Add("125. Queen Oak Bed")
            ListBox1.Items.Add("126. Queen Walnut Bed")
            ListBox1.Items.Add("127. Queen Mahogany Bed")
            ListBox1.Items.Add("128. Queen Satinwood Bed")
            ListBox1.Items.Add("129. Queen Marble Bed")
            ListBox1.Items.Add("130. King Oak Bed")
            ListBox1.Items.Add("131. King Walnut Bed")
            ListBox1.Items.Add("132. King Mahogany Bed")
            ListBox1.Items.Add("133. King Satinwood Bed")
            ListBox1.Items.Add("134. King Marble Bed")
            ListBox1.Items.Add("135. Queen Canopy Oak Bed")
            ListBox1.Items.Add("136. Queen Canopy Walnut Bed")
            ListBox1.Items.Add("137. Queen Canopy Mahogany Bed")
            ListBox1.Items.Add("138. Queen Canopy Satinwood Bed")
            ListBox1.Items.Add("139. Queen Canopy Marble Bed")
            ListBox1.Items.Add("140. King Canopy Oak Bed")
            ListBox1.Items.Add("141. King Canopy Walnut Bed")
            ListBox1.Items.Add("142. King Canopy Mahogany Bed")
            ListBox1.Items.Add("143. King Canopy Satinwood Bed")
            ListBox1.Items.Add("144. King Canopy Marble Bed")
        ElseIf MISCTYPE.Text = "01. Basic Forging" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Clay")
            ListBox1.Items.Add("001. Slag")
            ListBox1.Items.Add("002. Glass Pipe")
            ListBox1.Items.Add("003. Bench")
            ListBox1.Items.Add("004. Slack Tub")
            ListBox1.Items.Add("005. Forge")
            ListBox1.Items.Add("006. Hearth")
            ListBox1.Items.Add("007. Anvil")
            ListBox1.Items.Add("008. Coal")
            ListBox1.Items.Add("009. Tuyere")
            ListBox1.Items.Add("010. Draw Plate")
            ListBox1.Items.Add("011. Magnesium Ingot")
            ListBox1.Items.Add("012. Aluminium Ingot")
            ListBox1.Items.Add("013. Duralumin Ingot")
            ListBox1.Items.Add("014. Silumin Ingot")
            ListBox1.Items.Add("015. Magnalium Ingot")
            ListBox1.Items.Add("016. Alnico Ingot")
            ListBox1.Items.Add("017. Potassium Ingot")
            ListBox1.Items.Add("018. Iron Ingot")
            ListBox1.Items.Add("019. Steel Ingot")
            ListBox1.Items.Add("020. Chromoly Ingot")
            ListBox1.Items.Add("021. Invar Ingot")
            ListBox1.Items.Add("022. Cobalt Ingot")
            ListBox1.Items.Add("023. Stellite Ingot")
            ListBox1.Items.Add("024. Vitallium Ingot")
            ListBox1.Items.Add("025. Nickel Ingot")
            ListBox1.Items.Add("026. Chromel Ingot")
            ListBox1.Items.Add("027. Nichrome Ingot")
            ListBox1.Items.Add("028. Cupronickel Ingot")
            ListBox1.Items.Add("029. Copper Ingot")
            ListBox1.Items.Add("030. Billon Ingot")
            ListBox1.Items.Add("031. Brass Ingot")
            ListBox1.Items.Add("032. Tombac Ingot")
            ListBox1.Items.Add("033. Bronze Ingot")
            ListBox1.Items.Add("034. Hepatizon Ingot")
            ListBox1.Items.Add("035. Shakudo Ingot")
            ListBox1.Items.Add("036. Tumbaga Ingot")
            ListBox1.Items.Add("037. Zinc Ingot")
            ListBox1.Items.Add("038. Gallium Ingot")
            ListBox1.Items.Add("039. Zirconium Ingot")
            ListBox1.Items.Add("040. Silver Ingot")
            ListBox1.Items.Add("041. Indium Ingot")
            ListBox1.Items.Add("042. Tin Ingot")
            ListBox1.Items.Add("043. Gold Ingot")
            ListBox1.Items.Add("044. Mercury Ingot")
            ListBox1.Items.Add("045. Lead Ingot")
            ListBox1.Items.Add("046. Bismuth Ingot")
            ListBox1.Items.Add("047. Uranium Ingot")
        ElseIf MISCTYPE.Text = "02. Lights" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Torches")
            ListBox1.Items.Add("001. Candles")
            ListBox1.Items.Add("002. Bullseye Lantern")
            ListBox1.Items.Add("003. Hooded Lantern")
            ListBox1.Items.Add("004. Oil Lamp")
            ListBox1.Items.Add("005. Oil")
            ListBox1.Items.Add("006. Firewood")
            ListBox1.Items.Add("007. Flint")
            ListBox1.Items.Add("008. Tenderstone")
        ElseIf MISCTYPE.Text = "03. Outfits" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Royal Outfit")
            ListBox1.Items.Add("001. Scholar's Outfit")
            ListBox1.Items.Add("002. Wanderer's Outfit")
            ListBox1.Items.Add("003. Courtier's Outfit")
            ListBox1.Items.Add("004. Winter Outfit")
            ListBox1.Items.Add("005. Jester's Outfit")
            ListBox1.Items.Add("006. Explorer's Outfit")
            ListBox1.Items.Add("007. Peasant's Outfit")
            ListBox1.Items.Add("008. Artisan's Outfit")
        ElseIf MISCTYPE.Text = "04. Instruments" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Lute")
            ListBox1.Items.Add("001. Citole")
            ListBox1.Items.Add("002. Viola")
            ListBox1.Items.Add("003. Gittern")
            ListBox1.Items.Add("004. Shawm")
            ListBox1.Items.Add("005. Timbrel")
            ListBox1.Items.Add("006. Recorder")
            ListBox1.Items.Add("007. Piccolo")
            ListBox1.Items.Add("008. Flute")
            ListBox1.Items.Add("009. Clarinet")
            ListBox1.Items.Add("010. Palendag")
            ListBox1.Items.Add("011. Conch")
            ListBox1.Items.Add("012. Alphorn")
            ListBox1.Items.Add("013. Morin Khuur")
            ListBox1.Items.Add("014. Harp")
            ListBox1.Items.Add("015. Bell")
            ListBox1.Items.Add("016. Gong")
            ListBox1.Items.Add("017. Glockenspiel")
            ListBox1.Items.Add("018. Maraca")
            ListBox1.Items.Add("019. Marimba")
            ListBox1.Items.Add("020. Tambourine")
        ElseIf MISCTYPE.Text = "05. Woodblocks & Applicants" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Chestnut Woodblock")
            ListBox1.Items.Add("001. Basswood Woodblock")
            ListBox1.Items.Add("002. Mahogany Woodblock")
            ListBox1.Items.Add("003. Maple Woodblock")
            ListBox1.Items.Add("004. Red Oak Woodblock")
            ListBox1.Items.Add("005. Bamboo Woodblock")
            ListBox1.Items.Add("006. Wood Lacquer")
            ListBox1.Items.Add("007. Wood Polish")
        ElseIf MISCTYPE.Text = "06. Trinkets" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Whistle")
            ListBox1.Items.Add("001. Spyglass")
        ElseIf MISCTYPE.Text = "07. Gambling" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Weighted Dice")
            ListBox1.Items.Add("001. Weighted Coin")
            ListBox1.Items.Add("002. Fixed Playing Cards")
            ListBox1.Items.Add("003. Dice")
            ListBox1.Items.Add("004. Coin")
            ListBox1.Items.Add("005. Playing Cards")
        ElseIf MISCTYPE.Text = "08. Books" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Tome")
            ListBox1.Items.Add("001. Scroll")
            ListBox1.Items.Add("002. Diary")
            ListBox1.Items.Add("003. Paper")
            ListBox1.Items.Add("004. Quill")
            ListBox1.Items.Add("005. Ink")
            ListBox1.Items.Add("006. Parchment")
            ListBox1.Items.Add("007. Tablet")
            ListBox1.Items.Add("008. Quire")
            ListBox1.Items.Add("009. Vellum")
            ListBox1.Items.Add("010. Seal Stamp")
            ListBox1.Items.Add("011. Glut Wax")
        ElseIf MISCTYPE.Text = "09. Magical Items" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Orb")
            ListBox1.Items.Add("001. Wand")
            ListBox1.Items.Add("002. Stave")
        ElseIf MISCTYPE.Text = "10. Herbs & Reagents" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Aloe Ferox")
            ListBox1.Items.Add("001. Astragalus Membronaceous")
            ListBox1.Items.Add("002. Vaccinium Myrtillus")
            ListBox1.Items.Add("003. Rhamnus Purshiana")
            ListBox1.Items.Add("004. Capsicum Oil")
            ListBox1.Items.Add("005. Matricaria Recutita")
            ListBox1.Items.Add("006. Vaccinium Maerocarpan")
            ListBox1.Items.Add("007. Taraxacum Officinale")
            ListBox1.Items.Add("008. Echinacea Purpura")
            ListBox1.Items.Add("009. Eleutherococcus Senticosus")
            ListBox1.Items.Add("010. Orenotherabiennis")
            ListBox1.Items.Add("011. Tenacetum Parthenium")
            ListBox1.Items.Add("012. Allium Satiuum")
            ListBox1.Items.Add("013. Zingiber Officinale")
            ListBox1.Items.Add("014. Ginkgo Biloba")
            ListBox1.Items.Add("015. Panax Ginseng")
            ListBox1.Items.Add("016. Hydrastis Canadensis")
            ListBox1.Items.Add("017. Clycyrrhiza Glabra")
            ListBox1.Items.Add("018. Silybum Marianum")
            ListBox1.Items.Add("019. Passiflora Incarnata")
            ListBox1.Items.Add("020. Valeriana Officinalis")
            ListBox1.Items.Add("021. Homomelis Virginiana")
            ListBox1.Items.Add("022. Acacia Concinna")
            ListBox1.Items.Add("023. Acacia nilotica")
            ListBox1.Items.Add("024. Acorus calamus")
            ListBox1.Items.Add("025. Adhatoda Vasica")
            ListBox1.Items.Add("026. Aegle Marmelos")
            ListBox1.Items.Add("027. Aloe Vera")
            ListBox1.Items.Add("028. Andrographis Paniculata")
            ListBox1.Items.Add("029. Anethum Sowa")
            ListBox1.Items.Add("030. Asparagus Racemosus")
            ListBox1.Items.Add("031. Azadirachta Indica")
            ListBox1.Items.Add("032. Bacopa Monnieri")
            ListBox1.Items.Add("033. Balsamodendron")
            ListBox1.Items.Add("034. Benincasa Hispada")
            ListBox1.Items.Add("035. Betula Utilis")
            ListBox1.Items.Add("036. Capsicum Annuum")
            ListBox1.Items.Add("037. Cassia Fistula")
            ListBox1.Items.Add("038. Cinnamomum Camphore")
            ListBox1.Items.Add("039. Eclipta Albar")
            ListBox1.Items.Add("040. Eucalyptus Globulus")
            ListBox1.Items.Add("041. Ficus Begalensis")
            ListBox1.Items.Add("042. Hippophae Rhamnoides")
            ListBox1.Items.Add("043. Jasminum Officinale")
            ListBox1.Items.Add("044. Lilium Polyphyllum")
            ListBox1.Items.Add("045. Melaleuca Leucadendra")
        ElseIf MISCTYPE.Text = "11. Containers" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Flask")
            ListBox1.Items.Add("001. Waterskin")
            ListBox1.Items.Add("002. Canteen")
            ListBox1.Items.Add("003. Tankard")
            ListBox1.Items.Add("004. Chalice")
            ListBox1.Items.Add("005. Cup")
            ListBox1.Items.Add("006. Goblet")
            ListBox1.Items.Add("007. Pitcher")
            ListBox1.Items.Add("008. Stein")
            ListBox1.Items.Add("009. Pot")
            ListBox1.Items.Add("010. Pill")
            ListBox1.Items.Add("011. Tube")
            ListBox1.Items.Add("012. Vial")
            ListBox1.Items.Add("013. Ampoule")
            ListBox1.Items.Add("014. Erlenmeyer Flask")
            ListBox1.Items.Add("015. Florence Flask")
            ListBox1.Items.Add("016. Fleaker")
        ElseIf MISCTYPE.Text = "12. Rock Climbing" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. 6' Hemp Rope")
            ListBox1.Items.Add("001. Piton")
            ListBox1.Items.Add("002. Harness")
            ListBox1.Items.Add("003. Carabiner")
            ListBox1.Items.Add("004. Cords")
            ListBox1.Items.Add("005. Quickdraws")
            ListBox1.Items.Add("006. Rappel Device")
            ListBox1.Items.Add("007. Nut")
            ListBox1.Items.Add("008. Hexcentrics")
            ListBox1.Items.Add("009. Tricam")
            ListBox1.Items.Add("010. Helmet")
            ListBox1.Items.Add("011. Haul Bag")
            ListBox1.Items.Add("012. Chalk")
            ListBox1.Items.Add("013. Belay Gloves")
        ElseIf MISCTYPE.Text = "13. Treasure" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Lapis Lazuli")
            ListBox1.Items.Add("001. Malachite")
            ListBox1.Items.Add("002. Moonstone")
            ListBox1.Items.Add("004. Opal")
            ListBox1.Items.Add("005. Pearl")
            ListBox1.Items.Add("006. Peridot")
            ListBox1.Items.Add("007. Sapphire")
            ListBox1.Items.Add("008. Sardonyx")
            ListBox1.Items.Add("009. Star Ruby")
            ListBox1.Items.Add("010. Topaz")
            ListBox1.Items.Add("011. Jacinthe")
            ListBox1.Items.Add("012. Ivory")
            ListBox1.Items.Add("013. Jasper")
            ListBox1.Items.Add("014. Jade")
            ListBox1.Items.Add("015. Emerald")
            ListBox1.Items.Add("016. Chalcedonyl")
            ListBox1.Items.Add("017. Amethyst")
            ListBox1.Items.Add("018. Agate")
            ListBox1.Items.Add("019. Abalone Seashell")
            ListBox1.Items.Add("020. Conquina Seashell")
            ListBox1.Items.Add("021. Chitin Seashell")
            ListBox1.Items.Add("022. Clam Seashell")
            ListBox1.Items.Add("023. Helmet Seashell")
            ListBox1.Items.Add("024. Tegula Seashell")
            ListBox1.Items.Add("025. Ruby")
            ListBox1.Items.Add("026. Silver Nugget")
            ListBox1.Items.Add("027. Gold Nugget")
            ListBox1.Items.Add("028. Platinum Nugget")
            ListBox1.Items.Add("029. Gold Dust")
            ListBox1.Items.Add("030. Dreamstone")
            ListBox1.Items.Add("031. Amber Stone")
        ElseIf MISCTYPE.Text = "14. Tailoring" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Yarn")
            ListBox1.Items.Add("001. Spindle")
            ListBox1.Items.Add("002. Spinning Wheel")
            ListBox1.Items.Add("003. Rolag")
            ListBox1.Items.Add("004. Needle")
            ListBox1.Items.Add("005. Thread")
            ListBox1.Items.Add("006. Shuttle")
            ListBox1.Items.Add("007. Treadle Loom")
            ListBox1.Items.Add("008. Dobby Loom")
            ListBox1.Items.Add("009. Jacquard Loom")
            ListBox1.Items.Add("010. Dye")
            ListBox1.Items.Add("011. Rolag")
            ListBox1.Items.Add("012. Spinning WHeel")
            ListBox1.Items.Add("013. Spindle")
            ListBox1.Items.Add("014. Knitting Needle")
            ListBox1.Items.Add("015. Crochet Hook")
            ListBox1.Items.Add("016. Shuttle")
            ListBox1.Items.Add("017. Loom")
            ListBox1.Items.Add("018. Cotton Textile")
            ListBox1.Items.Add("019. Linen Textile")
            ListBox1.Items.Add("020. Bamboo Textile")
            ListBox1.Items.Add("021. Ramie Textile")
            ListBox1.Items.Add("022. Hemp Textile")
            ListBox1.Items.Add("023. Nettle Textile")
            ListBox1.Items.Add("024. Raffia Textile")
            ListBox1.Items.Add("025. Jute Textile")
            ListBox1.Items.Add("026. Chino Textile")
            ListBox1.Items.Add("027. Wool Textile")
            ListBox1.Items.Add("028. Silk Textile")
        ElseIf MISCTYPE.Text = "15. Fibers" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Cotton Fiber")
            ListBox1.Items.Add("001. Flax Fiber")
            ListBox1.Items.Add("002. Linen Fiber")
            ListBox1.Items.Add("003. Bamboo Fiber")
            ListBox1.Items.Add("004. Ramie Fiber")
            ListBox1.Items.Add("005. Hemp Fiber")
            ListBox1.Items.Add("006. Nettle Fiber")
            ListBox1.Items.Add("007. Raffia Fiber")
            ListBox1.Items.Add("008. Jute Fiber")
            ListBox1.Items.Add("009. Chino Fiber")
            ListBox1.Items.Add("010. Wool Fiber")
            ListBox1.Items.Add("011. Silk Fiber")
        ElseIf MISCTYPE.Text = "16. Leathercrafting" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Skin")
            ListBox1.Items.Add("001. Skinning Knife")
            ListBox1.Items.Add("002. Lacquer")
            ListBox1.Items.Add("003. Leather Needle")
            ListBox1.Items.Add("004. Color Dye")
            ListBox1.Items.Add("005. Acrylic Paint")
            ListBox1.Items.Add("006. Fur")
            ListBox1.Items.Add("007. Light Leather")
            ListBox1.Items.Add("008. Medium Leather")
            ListBox1.Items.Add("009. Heavy Leather")
            ListBox1.Items.Add("010. Aniline Leather")
            ListBox1.Items.Add("011. Boiled Leather")
            ListBox1.Items.Add("012. Shell Cordovan")
            ListBox1.Items.Add("013. Nappa Leather")
            ListBox1.Items.Add("014. Nubuck")
            ListBox1.Items.Add("015. Shagreen")
            ListBox1.Items.Add("016. Suede")
        ElseIf MISCTYPE.Text = "17. Molds, Patterns, & Designs" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Coif Mold")
            ListBox1.Items.Add("001. Helm Mold")
            ListBox1.Items.Add("002. Full Helm Mold")
            ListBox1.Items.Add("003. Horned Helm Mold")
            ListBox1.Items.Add("004. Skull Cap Mold")
            ListBox1.Items.Add("005. Face Guard Mold")
            ListBox1.Items.Add("006. Face Plate Mold")
            ListBox1.Items.Add("007. Scaled Shoulders Mold")
            ListBox1.Items.Add("008. Half-plate Shoulders Mold")
            ListBox1.Items.Add("009. Plate Shoulders Mold")
            ListBox1.Items.Add("010. Arm-guards Mold")
            ListBox1.Items.Add("011. Cuffs Mold")
            ListBox1.Items.Add("012. Bracers Mold")
            ListBox1.Items.Add("013. Shackles Mold")
            ListBox1.Items.Add("014. Handguards Mold")
            ListBox1.Items.Add("015. Gauntlets Mold")
            ListBox1.Items.Add("016. Chainmail Gauntlets Mold")
            ListBox1.Items.Add("017. Scalemail Gauntlets Mold")
            ListBox1.Items.Add("018. Platemail Gauntlets Mold")
            ListBox1.Items.Add("019. Platemail Mold")
            ListBox1.Items.Add("020. Ringmail Mold")
            ListBox1.Items.Add("021. Chain Cuirass Mold")
            ListBox1.Items.Add("022. Half-plate Mold")
            ListBox1.Items.Add("023. Chestplate Mold")
            ListBox1.Items.Add("024. Scalemail Mold")
            ListBox1.Items.Add("025. Field Plate Mold")
            ListBox1.Items.Add("026. Banded Mail Mold")
            ListBox1.Items.Add("027. Girdle Mold")
            ListBox1.Items.Add("028. Cord Mold")
            ListBox1.Items.Add("029. Senguillere Mold")
            ListBox1.Items.Add("030. Leggings Mold")
            ListBox1.Items.Add("031. Legguards Mold")
            ListBox1.Items.Add("032. Scale Leggings Mold")
            ListBox1.Items.Add("033. Half-plate Leggings Mold")
            ListBox1.Items.Add("034. Plate Leggings Mold")
            ListBox1.Items.Add("035. Chainmail Leggings Mold")
            ListBox1.Items.Add("036. Greaves Mold")
            ListBox1.Items.Add("037. Footguards Mold")
            ListBox1.Items.Add("038. Scale Boots Mold")
            ListBox1.Items.Add("039. Plate Boots Mold")
            ListBox1.Items.Add("040. Boots Mold")
            ListBox1.Items.Add("041. Long Boots Mold")
            ListBox1.Items.Add("042. Scutum Mold")
            ListBox1.Items.Add("043. Disc Shield Mold")
            ListBox1.Items.Add("044. Bulwark Mold")
            ListBox1.Items.Add("045. Tower Shield Mold")
            ListBox1.Items.Add("046. Seax Mold")
            ListBox1.Items.Add("047. Stiletto Mold")
            ListBox1.Items.Add("048. Pugio Mold")
            ListBox1.Items.Add("049. Roundel Mold")
            ListBox1.Items.Add("050. Poniard Mold")
            ListBox1.Items.Add("051. Dirk Mold")
            ListBox1.Items.Add("052. Dagger Mold")
            ListBox1.Items.Add("053. Pickaxe Mold")
            ListBox1.Items.Add("054. Katar Mold")
            ListBox1.Items.Add("055. Cestus Mold")
            ListBox1.Items.Add("056. Shuriken Mold")
            ListBox1.Items.Add("057. Darts Mold")
            ListBox1.Items.Add("058. Tomahawk Axe Mold")
            ListBox1.Items.Add("059. Kunai Mold")
            ListBox1.Items.Add("060. Javelin Mold")
            ListBox1.Items.Add("061. Spear Mold")
            ListBox1.Items.Add("062. Pike Mold")
            ListBox1.Items.Add("063. Doloire Mold")
            ListBox1.Items.Add("064. Ranseur Mold")
            ListBox1.Items.Add("065. Spetum Mold")
            ListBox1.Items.Add("066. Hasta Mold")
            ListBox1.Items.Add("067. Tepoztopilli Mold")
            ListBox1.Items.Add("068. Falcata Mold")
            ListBox1.Items.Add("069. Gladius Mold")
            ListBox1.Items.Add("070. Kopis Mold")
            ListBox1.Items.Add("071. Shortsword Mold")
            ListBox1.Items.Add("072. Broadsword Mold")
            ListBox1.Items.Add("073. Masakari Mold")
            ListBox1.Items.Add("074. Sappara Mold")
            ListBox1.Items.Add("075. Khopesh Mold")
            ListBox1.Items.Add("076. Longsword Mold")
            ListBox1.Items.Add("077. Flamberge Mold")
            ListBox1.Items.Add("078. Falchion Mold")
            ListBox1.Items.Add("079. Claymore Mold Mold")
            ListBox1.Items.Add("080. Hatchet Mold")
            ListBox1.Items.Add("081. Axe Mold")
            ListBox1.Items.Add("082. Field Axe Mold")
            ListBox1.Items.Add("083. Rapier Mold")
            ListBox1.Items.Add("084. Scythe Mold")
            ListBox1.Items.Add("085. Chakrum Mold")
            ListBox1.Items.Add("086. Scimitar Mold")
            ListBox1.Items.Add("087. Cleaver Mold")
            ListBox1.Items.Add("088. Falx Mold")
            ListBox1.Items.Add("089. Rhomphaia Mold")
            ListBox1.Items.Add("090. Bardiche Mold")
            ListBox1.Items.Add("091. Bill Mold")
            ListBox1.Items.Add("092. Glaive Mold")
            ListBox1.Items.Add("093. Guisarme Mold")
            ListBox1.Items.Add("094. Voulge Mold")
            ListBox1.Items.Add("095. Macuahuiti Mold")
            ListBox1.Items.Add("096. Mace Mold")
            ListBox1.Items.Add("097. Flail Mold")
            ListBox1.Items.Add("098. Hammer Mold")
            ListBox1.Items.Add("099. War Hammer Mold")
            ListBox1.Items.Add("100. Scepter Mold")
            ListBox1.Items.Add("101. Club Mold")
            ListBox1.Items.Add("102. Blackjack Mold")
            ListBox1.Items.Add("103. Horseshoes Mold")
            ListBox1.Items.Add("104. Snaffle Bridle Mold")
            ListBox1.Items.Add("105. Pelham Bridle Mold")
            ListBox1.Items.Add("106. Western Bridle Mold")
            ListBox1.Items.Add("107. Weymouth Bridle Mold")
            ListBox1.Items.Add("108. Chain Whip Mold")
            ListBox1.Items.Add("109. Ingot Mold Mold")
            ListBox1.Items.Add("110. Crown Jewelcrafting Mold")
            ListBox1.Items.Add("111. Chapeau Jewelcrafting Mold")
            ListBox1.Items.Add("112. Chaplet Jewelcrafting Mold")
            ListBox1.Items.Add("113. Coronet Jewelcrafting Mold")
            ListBox1.Items.Add("114. Spectacles Jewelcrafting Mold")
            ListBox1.Items.Add("115. Tiara Jewelcrafting Mold")
            ListBox1.Items.Add("116. Eyeglasses Jewelcrafting Mold")
            ListBox1.Items.Add("117. Monocle Jewelcrafting Mold")
            ListBox1.Items.Add("118. Wreath Jewelcrafting Mold")
            ListBox1.Items.Add("119. Circlet Jewelcrafting Mold")
            ListBox1.Items.Add("120. Mask Jewelcrafting Mold")
            ListBox1.Items.Add("121. Headdress Jewelcrafting Mold")
            ListBox1.Items.Add("122. Amulet Jewelcrafting Mold")
            ListBox1.Items.Add("123. Choker Jewelcrafting Mold")
            ListBox1.Items.Add("124. Locket Jewelcrafting Mold")
            ListBox1.Items.Add("125. Medallion Jewelcrafting Mold")
            ListBox1.Items.Add("126. Neckband Jewelcrafting Mold")
            ListBox1.Items.Add("127. Necklace Jewelcrafting Mold")
            ListBox1.Items.Add("128. Mark Jewelcrafting Mold")
            ListBox1.Items.Add("129. Pendant Jewelcrafting Mold")
            ListBox1.Items.Add("130. Icon Jewelcrafting Mold")
            ListBox1.Items.Add("131. Talisman Jewelcrafting Mold")
            ListBox1.Items.Add("132. Ring Jewelcrafting Mold")
            ListBox1.Items.Add("133. Band Jewelcrafting Mold")
            ListBox1.Items.Add("134. Thumb Ring Jewelcrafting Mold")
            ListBox1.Items.Add("135. Wedding Ring Jewelcrafting Mold")
            ListBox1.Items.Add("136. Engagement Ring Jewelcrafting Mold")
            ListBox1.Items.Add("137. Signet Ring Jewelcrafting Mold")
            ListBox1.Items.Add("138. Blood Ring Jewelcrafting Mold")
            ListBox1.Items.Add("139. Skull Cap Leatherworking Pattern")
            ListBox1.Items.Add("140. Gorget Leatherworking Pattern")
            ListBox1.Items.Add("141. Pauldrons Leatherworking Pattern")
            ListBox1.Items.Add("142. Mantle Leatherworking Pattern")
            ListBox1.Items.Add("143. Studded Mantle Leatherworking Pattern")
            ListBox1.Items.Add("144. Shoulder Pads Leatherworking Pattern")
            ListBox1.Items.Add("145. Spaulders Leatherworking Pattern")
            ListBox1.Items.Add("146. Armlets Leatherworking Pattern")
            ListBox1.Items.Add("147. Armband Leatherworking Pattern")
            ListBox1.Items.Add("148. Arm-guards Leatherworking Pattern")
            ListBox1.Items.Add("149. Arm Wraps Leatherworking Pattern")
            ListBox1.Items.Add("150. Cuffs Leatherworking Pattern")
            ListBox1.Items.Add("151. Wristband Leatherworking Pattern")
            ListBox1.Items.Add("152. Bracers Leatherworking Pattern")
            ListBox1.Items.Add("153. Bindings Leatherworking Pattern")
            ListBox1.Items.Add("154. Gloves Leatherworking Pattern")
            ListBox1.Items.Add("155. Handguards Leatherworking Pattern")
            ListBox1.Items.Add("156. Chestguard Leatherworking Pattern")
            ListBox1.Items.Add("157. Studded Tunic Leatherworking Pattern")
            ListBox1.Items.Add("158. Tunic Leatherworking Pattern")
            ListBox1.Items.Add("159. Belt Leatherworking Pattern")
            ListBox1.Items.Add("160. Waistwrap Leatherworking Pattern")
            ListBox1.Items.Add("161. Genoillere Leatherworking Pattern")
            ListBox1.Items.Add("162. Leggings Leatherworking Pattern")
            ListBox1.Items.Add("163. Stalkers Leatherworking Pattern")
            ListBox1.Items.Add("164. Footguards Leatherworking Pattern")
            ListBox1.Items.Add("165. Boots Leatherworking Pattern")
            ListBox1.Items.Add("166. Longboots Leatherworking Pattern")
            ListBox1.Items.Add("167. Aegis Leatherworking Pattern")
            ListBox1.Items.Add("168. Targe Leatherworking Pattern")
            ListBox1.Items.Add("169. Bulwark Leatherworking Pattern")
            ListBox1.Items.Add("170. Waterskin Leatherworking Pattern")
            ListBox1.Items.Add("171. Saddles Leatherworking Pattern")
            ListBox1.Items.Add("172. Whip Leatherworking Pattern")
            ListBox1.Items.Add("173. Bag Leatherworking Pattern")
            ListBox1.Items.Add("174. Pouch Leatherworking Pattern")
            ListBox1.Items.Add("175. Saddlebag Leatherworking Pattern")
            ListBox1.Items.Add("176. Knapsack Leatherworking Pattern")
            ListBox1.Items.Add("177. Backpack Leatherworking Pattern")
            ListBox1.Items.Add("178. Satchel Leatherworking Pattern")
            ListBox1.Items.Add("179. Sack Leatherworking Pattern")
            ListBox1.Items.Add("180. Cowl Tailoring Pattern")
            ListBox1.Items.Add("181. Hood Tailoring Pattern")
            ListBox1.Items.Add("182. Cap Tailoring Pattern")
            ListBox1.Items.Add("183. Amice Tailoring Pattern")
            ListBox1.Items.Add("184. Mantle Tailoring Pattern")
            ListBox1.Items.Add("185. Shoulder Pads Tailoring Pattern")
            ListBox1.Items.Add("186. Armlets Tailoring Pattern")
            ListBox1.Items.Add("187. Armband Tailoring Pattern")
            ListBox1.Items.Add("188. Arm Wraps Tailoring Pattern")
            ListBox1.Items.Add("189. Wristband Tailoring Pattern")
            ListBox1.Items.Add("190. Bracelet Tailoring Pattern")
            ListBox1.Items.Add("191. Bindings Tailoring Pattern")
            ListBox1.Items.Add("192. Gloves Tailoring Pattern")
            ListBox1.Items.Add("193. Mittens Tailoring Pattern")
            ListBox1.Items.Add("194. Handwraps Tailoring Pattern")
            ListBox1.Items.Add("195. Tunic Tailoring Pattern")
            ListBox1.Items.Add("196. Vestment Tailoring Pattern")
            ListBox1.Items.Add("197. Robe Tailoring Pattern")
            ListBox1.Items.Add("198. Raiment Tailoring Pattern")
            ListBox1.Items.Add("199. Tabard Tailoring Pattern")
            ListBox1.Items.Add("200. Doublet Tailoring Pattern")
            ListBox1.Items.Add("201. Chemise Tailoring Pattern")
            ListBox1.Items.Add("202. Shawl Tailoring Pattern")
            ListBox1.Items.Add("203. Cape Tailoring Pattern")
            ListBox1.Items.Add("204. Capelet Tailoring Pattern")
            ListBox1.Items.Add("205. Cloak Tailoring Pattern")
            ListBox1.Items.Add("206. Heavy Cloak Tailoring Pattern")
            ListBox1.Items.Add("207. Battle Cloak Tailoring Pattern")
            ListBox1.Items.Add("208. Royal Cloak Tailoring Pattern")
            ListBox1.Items.Add("209. Cord Tailoring Pattern")
            ListBox1.Items.Add("210. Waistwrap Tailoring Pattern")
            ListBox1.Items.Add("211. Sash Tailoring Pattern")
            ListBox1.Items.Add("212. Bloomers Tailoring Pattern")
            ListBox1.Items.Add("213. Breeches Tailoring Pattern")
            ListBox1.Items.Add("214. Trousers Tailoring Pattern")
            ListBox1.Items.Add("215. Skirt Tailoring Pattern")
            ListBox1.Items.Add("215. Split Skirt Tailoring Pattern")
            ListBox1.Items.Add("216. Tights Tailoring Pattern")
            ListBox1.Items.Add("217. Pantaloons Tailoring Pattern")
            ListBox1.Items.Add("218. Slippers Tailoring Pattern")
            ListBox1.Items.Add("219. Sandals Tailoring Pattern")
            ListBox1.Items.Add("220. Stalkers Tailoring Pattern")
            ListBox1.Items.Add("221. Footguards Tailoring Pattern")
            ListBox1.Items.Add("222. Roundel Tailoring Pattern")
            ListBox1.Items.Add("223. Buckler Tailoring Pattern")
            ListBox1.Items.Add("224. Royal Outfit Tailoring Pattern")
            ListBox1.Items.Add("225. Scholar's Outfit Tailoring Pattern")
            ListBox1.Items.Add("226. Wanderer's Outfit Tailoring Pattern")
            ListBox1.Items.Add("227. Courtier's Outfit Tailoring Pattern")
            ListBox1.Items.Add("228. Winter Outfit Tailoring Pattern")
            ListBox1.Items.Add("229. Jester's Outfit Tailoring Pattern")
            ListBox1.Items.Add("230. Explorer's Outfit Tailoring Pattern")
            ListBox1.Items.Add("231. Peasants Outfit Tailoring Pattern")
            ListBox1.Items.Add("232. Artisans Outfit Tailoring Pattern")
            ListBox1.Items.Add("233. Bag Tailoring Pattern")
            ListBox1.Items.Add("234. Pouch Tailoring Pattern")
            ListBox1.Items.Add("235. Saddlebag Tailoring Pattern")
            ListBox1.Items.Add("236. Knapsack Tailoring Pattern")
            ListBox1.Items.Add("237. Sack Tailoring Pattern")
            ListBox1.Items.Add("238. Shortbow Fletcher Pattern")
            ListBox1.Items.Add("239. Longbow Fletcher Pattern")
            ListBox1.Items.Add("240. Composite Bow Fletcher Pattern")
            ListBox1.Items.Add("241. Eku Fletcher Pattern")
            ListBox1.Items.Add("242. Lathi Fletcher Pattern")
            ListBox1.Items.Add("243. Splint Shoulders Fletcher Pattern")
            ListBox1.Items.Add("244. Splintmail Fletcher Pattern")
            ListBox1.Items.Add("245. Hauberk Fletcher Pattern")
            ListBox1.Items.Add("246. Splintboots Fletcher Pattern")
            ListBox1.Items.Add("247. Oak Armoire Design")
            ListBox1.Items.Add("248. Walnut Armoire Design")
            ListBox1.Items.Add("249. Mahogany Amoire Design")
            ListBox1.Items.Add("250. Satinwood Armoire Design")
            ListBox1.Items.Add("251. Small Oak Bookcase Design")
            ListBox1.Items.Add("252. Medium Oak Bookcase Design")
            ListBox1.Items.Add("253. Large Oak Bookcase Design")
            ListBox1.Items.Add("254. Small Walnut Bookcase Design")
            ListBox1.Items.Add("255. Medium Walnut Bookcase Design")
            ListBox1.Items.Add("256. Large Walnut Bookcase Design")
            ListBox1.Items.Add("257. Small Mahogany Bookcase Design")
            ListBox1.Items.Add("258. Medium Mahogany Bookcase Design")
            ListBox1.Items.Add("259. Large Mahogany Bookcase Design")
            ListBox1.Items.Add("260. Small Satinwood Bookcase Design")
            ListBox1.Items.Add("261. Medium Satinwood Bookcase Design")
            ListBox1.Items.Add("262. Large Satinwood Bookcase Design")
            ListBox1.Items.Add("263. Oak Chifforobe Design")
            ListBox1.Items.Add("264. Walnut Chifforobe Design")
            ListBox1.Items.Add("265. Mahogany Chifforobe Design")
            ListBox1.Items.Add("266. Satinwood Chifforobe Design")
            ListBox1.Items.Add("267. Oak Chest Design")
            ListBox1.Items.Add("268. Walnut Chest Design")
            ListBox1.Items.Add("269. Mahogany Chest Design")
            ListBox1.Items.Add("270. Satinwood Chest Design")
            ListBox1.Items.Add("271. Oak Cassone Design")
            ListBox1.Items.Add("272. Walnut Cassone Design")
            ListBox1.Items.Add("273. Mahogany Cassone Design")
            ListBox1.Items.Add("274. Satinwood Cassone Design")
            ListBox1.Items.Add("275. Oak Cupboard Design")
            ListBox1.Items.Add("276. Oak Hall Tree Design")
            ListBox1.Items.Add("277. Walnut Hall Tree Design")
            ListBox1.Items.Add("278. Mahogany Hall Tree Design")
            ListBox1.Items.Add("279. Satinwood Hall Tree Design")
            ListBox1.Items.Add("280. Oak Hat Stand Design")
            ListBox1.Items.Add("281. Walnut Hat Stand Design")
            ListBox1.Items.Add("282. Mahogany Hat Stand Design")
            ListBox1.Items.Add("283. Satinwood Hat Stand Design")
            ListBox1.Items.Add("284. Oak Sideboard Design")
            ListBox1.Items.Add("285. Walnut Sideboard Design")
            ListBox1.Items.Add("286. Pine Sideboard Design")
            ListBox1.Items.Add("287. Mahogany Bergere Design")
            ListBox1.Items.Add("288. Satinwood Bergere Design")
            ListBox1.Items.Add("289. Marble Bergere Design")
            ListBox1.Items.Add("290. Oak Wicker Chair Design")
            ListBox1.Items.Add("291. Ash Splint Chair Design")
            ListBox1.Items.Add("292. Oak Splint Chair Design")
            ListBox1.Items.Add("293. Hickory Splint Chair Design")
            ListBox1.Items.Add("294. Oak Papasan Chair Design")
            ListBox1.Items.Add("295. Walnut Papasan Chair Design")
            ListBox1.Items.Add("296. Satinwood Papasan Chair Design")
            ListBox1.Items.Add("297. Walnut Savonarola Chair Design")
            ListBox1.Items.Add("298. Oak Wicker Armchair Design")
            ListBox1.Items.Add("299. Ash Splint Armchair Design")
            ListBox1.Items.Add("300. Oak Splint Armchair Design")
            ListBox1.Items.Add("301. Hickory Splint Armchair Design")
            ListBox1.Items.Add("302. Oak Papasan Armchair Design")
            ListBox1.Items.Add("303. Walnut Papasan Armchair Design")
            ListBox1.Items.Add("304. Satinwood Papasan Armchair Design")
            ListBox1.Items.Add("305. Walnut Savonarola Armchair Design")
            ListBox1.Items.Add("306. Oak Wicker Highchair Design")
            ListBox1.Items.Add("307. Ash Splint Highchair Design")
            ListBox1.Items.Add("308. Oak Splint Highchair Design")
            ListBox1.Items.Add("309. Hickory Splint Highchair Design")
            ListBox1.Items.Add("310. Oak Papasan Highchair Design")
            ListBox1.Items.Add("311. Walnut Papasan Highchair Design")
            ListBox1.Items.Add("312. Satinwood Papasan Highchair Design")
            ListBox1.Items.Add("313. Walnut Savonarola Highchair Design")
            ListBox1.Items.Add("314. Black Throne Design")
            ListBox1.Items.Add("315. Red Throne Design")
            ListBox1.Items.Add("316. Sopha Design")
            ListBox1.Items.Add("317. Fauteuil Design")
            ListBox1.Items.Add("318. Oak Footstool Design")
            ListBox1.Items.Add("319. Walnut Footstool Design")
            ListBox1.Items.Add("320. Pine Footstool Design")
            ListBox1.Items.Add("321. Oak Stool Design")
            ListBox1.Items.Add("322. Walnut Stool Design")
            ListBox1.Items.Add("323. Pine Stool Design")
            ListBox1.Items.Add("324. Tuffet Design")
            ListBox1.Items.Add("325. Oak Coffee Table Design")
            ListBox1.Items.Add("326. Walnut Coffee Table Design")
            ListBox1.Items.Add("327. Pine Coffee Table Design")
            ListBox1.Items.Add("328. Oak Dining Table Design")
            ListBox1.Items.Add("329. Walnut Dining Table Design")
            ListBox1.Items.Add("330. Mahogany Dining Table Design")
            ListBox1.Items.Add("331. Satinwood Dining Table Design")
            ListBox1.Items.Add("332. Oak Nightstand Design")
            ListBox1.Items.Add("333. Walnut Nightstand Design")
            ListBox1.Items.Add("334. Mahogany Nightstand Design")
            ListBox1.Items.Add("335. Satinwood Nightstand Design")
            ListBox1.Items.Add("336. Oak Rocker Design")
            ListBox1.Items.Add("337. Walnut Rocker Design")
            ListBox1.Items.Add("338. Mahogany Rocker Design")
            ListBox1.Items.Add("339. Satinwood Rocker Design")
            ListBox1.Items.Add("340. Walnut Rolltop Desk Design")
            ListBox1.Items.Add("341. Mahogany Rolltop Desk Design")
            ListBox1.Items.Add("342. Oak Study Table Design")
            ListBox1.Items.Add("343. Walnut Study Table Design")
            ListBox1.Items.Add("345. Mahogany Study Table Design")
            ListBox1.Items.Add("346. Satinwood Study Table Design")
            ListBox1.Items.Add("347. Oak Refectory Table Design")
            ListBox1.Items.Add("348. Walnut Refectory Table Design")
            ListBox1.Items.Add("349. Ash Refectory Table Design")
            ListBox1.Items.Add("350. Mahogany Refectory Table Design")
            ListBox1.Items.Add("351. Satinwood Refectory Table Design")
            ListBox1.Items.Add("352. Oak Nightstand Design")
            ListBox1.Items.Add("353. Walnut Nightstand Design")
            ListBox1.Items.Add("354. Pine Nightstand Design")
            ListBox1.Items.Add("355. Lectus Cubicularis Design")
            ListBox1.Items.Add("356. Lectus Discubitorius Design")
            ListBox1.Items.Add("357. Lectus Lucubratorius Design")
            ListBox1.Items.Add("358. Oak Bassinet Design")
            ListBox1.Items.Add("359. Oak Crib Design")
            ListBox1.Items.Add("360. Pine Crib Design")
            ListBox1.Items.Add("361. Oak Weapon Rack Design")
            ListBox1.Items.Add("362. Pine Weapon Rack Design")
            ListBox1.Items.Add("363. Oak Hat Rack Design")
            ListBox1.Items.Add("364. Pine Weapon Rack Design")
            ListBox1.Items.Add("365. Oak Clothes Rack Design")
            ListBox1.Items.Add("366. Pine Clothes Rack Design")
            ListBox1.Items.Add("367. Single Oak Bed Design")
            ListBox1.Items.Add("368. Double Oak Bed Design")
            ListBox1.Items.Add("369. Double Walnut Bed Design")
            ListBox1.Items.Add("370. Oak Bunk Bed Design")
            ListBox1.Items.Add("371. Walnut Bunk Bed Design")
            ListBox1.Items.Add("372. Queen Oak Bed Design")
            ListBox1.Items.Add("373. Queen Walnut Bed Design")
            ListBox1.Items.Add("374. Queen Mahogany Bed Design")
            ListBox1.Items.Add("375. Queen Satinwood Bed Design")
            ListBox1.Items.Add("376. Queen Marble Bed Design")
            ListBox1.Items.Add("377. King Oak Bed Design")
            ListBox1.Items.Add("378. King Walnut Bed Design")
            ListBox1.Items.Add("379. King Mahogany Bed Design")
            ListBox1.Items.Add("380. King Satinwood Bed Design")
            ListBox1.Items.Add("381. King Marble Bed Design")
            ListBox1.Items.Add("382. Queen Canopy Oak Bed Design")
            ListBox1.Items.Add("383. Queen Canopy Walnut Bed Design")
            ListBox1.Items.Add("384. Queen Canopy Mahogany Bed Design")
            ListBox1.Items.Add("385. Queen Canopy Satinwood Bed Design")
            ListBox1.Items.Add("386. Queen Canopy Marble Bed Design")
            ListBox1.Items.Add("387. King Canopy Oak Bed Design")
            ListBox1.Items.Add("388. King Canopy Walnut Bed Design")
            ListBox1.Items.Add("389. King Canopy Mahogany Bed Design")
            ListBox1.Items.Add("390. King Canopy Satinwood Bed Design")
            ListBox1.Items.Add("391. King Canopy Marble Bed Design")
        ElseIf MISCTYPE.Text = "18. Potions & Magical Applicants" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Potion of Minor Healing")
            ListBox1.Items.Add("001. Potion of Lesser Healing")
            ListBox1.Items.Add("002. Potion of Moderate Healing")
            ListBox1.Items.Add("003. Potion of Greater Healing")
            ListBox1.Items.Add("004. Potion of Full Heal")
            ListBox1.Items.Add("005. Potion of Minor Stamina")
            ListBox1.Items.Add("006. Potion of Lesser Stamina")
            ListBox1.Items.Add("007. Potion of Moderate Stamina")
            ListBox1.Items.Add("008. Potion of Greater Stamina")
            ListBox1.Items.Add("009. Potion of Full Stamina")
            ListBox1.Items.Add("010. Potion of Minor Willpower")
            ListBox1.Items.Add("011. Potion of Lesser Willpower")
            ListBox1.Items.Add("012. Potion of Moderate Willpower")
            ListBox1.Items.Add("013. Potion of Greater Willpower")
            ListBox1.Items.Add("014. Potion of Full Willpower")
            ListBox1.Items.Add("015. Pristine Magical Applicant")
            ListBox1.Items.Add("016. Resilient Magical Applicant")
            ListBox1.Items.Add("017. Enforced Magical Applicant")
            ListBox1.Items.Add("018. Brawny Magical Applicant")
            ListBox1.Items.Add("019. Tribal Magical Applicant")
            ListBox1.Items.Add("020. Nightwalkers Magical Applicant")
            ListBox1.Items.Add("021. Padded Magical Applicant")
            ListBox1.Items.Add("022. Steadfast Magical Applicant")
            ListBox1.Items.Add("023. Swift Magical Applicant")
            ListBox1.Items.Add("024. Vile Magical Applicant")
            ListBox1.Items.Add("025. Corrupt Magical Applicant")
            ListBox1.Items.Add("026. Grim Magical Applicant")
            ListBox1.Items.Add("027. Uprooting Magical Applicant")
            ListBox1.Items.Add("028. Pulsing Magical Applicant")
            ListBox1.Items.Add("029. Shaking Magical Applicant")
            ListBox1.Items.Add("030. Thundering Magical Applicant")
            ListBox1.Items.Add("031. Shocking Magical Applicant")
            ListBox1.Items.Add("032. Jolting Magical Applicant")
            ListBox1.Items.Add("033. Hunters Magical Applicant")
            ListBox1.Items.Add("034. Blizzard Magical Applicant")
            ListBox1.Items.Add("035. Frozen Magical Applicant")
            ListBox1.Items.Add("036. Cold Magical Applicant")
            ListBox1.Items.Add("037. Flamestorm Magical Applicant")
            ListBox1.Items.Add("038. Heated Magical Applicant")
            ListBox1.Items.Add("039. Flaming Magical Applicant")
            ListBox1.Items.Add("040. Ritualistic Magical Applicant")
            ListBox1.Items.Add("041. Arcane Magical Applicant")
            ListBox1.Items.Add("042. Moonlit Magical Applicant")
            ListBox1.Items.Add("043. Vampiric Magical Applicant")
            ListBox1.Items.Add("044. Predatorial Magical Applicant")
            ListBox1.Items.Add("045. Parasitic Magical Applicant")
            ListBox1.Items.Add("046. Ethereal Magical Applicant")
            ListBox1.Items.Add("047. Swampland Magical Applicant")
            ListBox1.Items.Add("048. Desert Magical Applicant")
            ListBox1.Items.Add("049. Mountain Magical Applicant")
            ListBox1.Items.Add("050. Grassland Magical Applicant")
            ListBox1.Items.Add("051. Woodland Magical Applicant")
            ListBox1.Items.Add("052. Radiant Magical Applicant")
            ListBox1.Items.Add("053. Illuminating Magical Applicant")
            ListBox1.Items.Add("054. Glowing Magical Applicant")
            ListBox1.Items.Add("055. Dark Magical Applicant")
            ListBox1.Items.Add("056. Avarieen Magical Applicant")
            ListBox1.Items.Add("057. Adept Magical Applicant")
            ListBox1.Items.Add("058. Stargazer Magical Applicant")
            ListBox1.Items.Add("059. Fortified Magical Applicant")
            ListBox1.Items.Add("060. Celestial Magical Applicant")
            ListBox1.Items.Add("061. Ancestral Magical Applicant")
            ListBox1.Items.Add("062. Outlandish Magical Applicant")
            ListBox1.Items.Add("063. Shadowed Magical Applicant")
            ListBox1.Items.Add("064. Simple Magical Applicant")
            ListBox1.Items.Add("065. Elven Magical Applicant")
            ListBox1.Items.Add("066. Dwarven Magical Applicant")
            ListBox1.Items.Add("067. Scouts Magical Applicant")
            ListBox1.Items.Add("068. Magical Applicant of desolation")
            ListBox1.Items.Add("069. Magical Applicant of the archon")
            ListBox1.Items.Add("070. Magical Applicant of annihilation")
            ListBox1.Items.Add("071. Magical Applicant of reversal")
            ListBox1.Items.Add("072. Magical Applicant of ghost touch")
            ListBox1.Items.Add("073. Magical Applicant of vengeance")
            ListBox1.Items.Add("074. Magical Applicant of shadowstriking")
            ListBox1.Items.Add("075. Magical Applicant of retribution")
            ListBox1.Items.Add("076. Magical Applicant of dread")
            ListBox1.Items.Add("077. Magical Applicant of protection")
            ListBox1.Items.Add("078. Magical Applicant of decay")
            ListBox1.Items.Add("079. Magical Applicant of vitality")
            ListBox1.Items.Add("080. Magical Applicant of willpower")
            ListBox1.Items.Add("081. Magical Applicant of stamina")
            ListBox1.Items.Add("082. Magical Applicant of the tiger")
            ListBox1.Items.Add("083. Magical Applicant of the bear")
            ListBox1.Items.Add("084. Magical Applicant of the lion")
            ListBox1.Items.Add("085. Magical Applicant of the lynx")
            ListBox1.Items.Add("086. Magical Applicant of the bat")
            ListBox1.Items.Add("087. Magical Applicant of the eagle")
            ListBox1.Items.Add("088. Magical Applicant of the wolf")
            ListBox1.Items.Add("089. Magical Applicant of the panther")
            ListBox1.Items.Add("090. Magical Applicant of the badger")
            ListBox1.Items.Add("091. Magical Applicant of the cheetah")
            ListBox1.Items.Add("092. Magical Applicant of the spider")
            ListBox1.Items.Add("093. Magical Applicant of the owl")
            ListBox1.Items.Add("094. Magical Applicant of the moon")
            ListBox1.Items.Add("095. Magical Applicant of the leopard")
            ListBox1.Items.Add("096. Magical Applicant of the daring")
            ListBox1.Items.Add("097. Magical Applicant of the sun")
            ListBox1.Items.Add("098. Magical Applicant of the falcon")
            ListBox1.Items.Add("099. Magical Applicant of the sage")
            ListBox1.Items.Add("100. Magical Applicant of the politician")
            ListBox1.Items.Add("101. Magical Applicant of the careful")
            ListBox1.Items.Add("102. Magical Applicant of strength")
            ListBox1.Items.Add("103. Magical Applicant of dexterity")
            ListBox1.Items.Add("104. Magical Applicant of intelligence")
            ListBox1.Items.Add("105. Magical Applicant of wisdom")
            ListBox1.Items.Add("106. Magical Applicant of constitution")
            ListBox1.Items.Add("107. Magical Applicant of charisma")
            ListBox1.Items.Add("108. Magical Applicant of luck")
            ListBox1.Items.Add("109. Magical Applicant of the soulstrung")
            ListBox1.Items.Add("110. Magical Applicant of thought")
            ListBox1.Items.Add("111. Magical Applicant of the swift")
            ListBox1.Items.Add("112. Magical Applicant of the faithful")
            ListBox1.Items.Add("113. Magical Applicant of anger")
            ListBox1.Items.Add("114. Magical Applicant of solitude")
            ListBox1.Items.Add("115. Magical Applicant of misguiding")
            ListBox1.Items.Add("116. Magical Applicant of purgery")
            ListBox1.Items.Add("117. Magical Applicant of judgement")
            ListBox1.Items.Add("118. Magical Applicant of shadows")
            ListBox1.Items.Add("119. Magical Applicant of thoughtlessness")
            ListBox1.Items.Add("120. Magical Applicant of darkness")
            ListBox1.Items.Add("121. Magical Applicant of secrecy")
            ListBox1.Items.Add("122. Magical Applicant of protection")
            ListBox1.Items.Add("123. Magical Applicant of The Bleak")
            ListBox1.Items.Add("124. Magical Applicant of New Saellem")
            ListBox1.Items.Add("125. Magical Applicant of Crecia")
            ListBox1.Items.Add("126. Magical Applicant of Tharsis")
            ListBox1.Items.Add("127. Magical Applicant of Narsis")
            ListBox1.Items.Add("128. Magical Applicant of Jewall")
            ListBox1.Items.Add("129. Magical Applicant of grief")
            ListBox1.Items.Add("130. Magical Applicant of affliction")
            ListBox1.Items.Add("131. Magical Applicant of misery")
            ListBox1.Items.Add("132. Magical Applicant of focus")
            ListBox1.Items.Add("133. Magical Applicant of reach")
            ListBox1.Items.Add("134. Magical Applicant of precision")
            ListBox1.Items.Add("135. Magical Applicant of projection")
            ListBox1.Items.Add("136. Magical Applicant of mastery")
            ListBox1.Items.Add("137. Magical Applicant of infection")
            ListBox1.Items.Add("138. Magical Applicant of the ghost")
            ListBox1.Items.Add("139. Magical Applicant of the specter")
            ListBox1.Items.Add("140. Magical Applicant of the phantom")
            ListBox1.Items.Add("141. Magical Applicant of the wraith")
        ElseIf MISCTYPE.Text = "19. Thieves Tools" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Lockpick")
            ListBox1.Items.Add("001. Practice Lock")
        ElseIf MISCTYPE.Text = "20. Kits" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Disguise Kit")
            ListBox1.Items.Add("001. Healing Kit")
            ListBox1.Items.Add("002. Tradesguild Kit")
        ElseIf MISCTYPE.Text = "21. Ores & Raw Gems" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Argentite Ore")
            ListBox1.Items.Add("001. Bauxite Ore Ore")
            ListBox1.Items.Add("002. Beryl Ore Ore")
            ListBox1.Items.Add("003. Bornite Ore")
            ListBox1.Items.Add("004. Chalcocite Ore")
            ListBox1.Items.Add("005. Chalcopyrite Ore")
            ListBox1.Items.Add("006. Chromite Ore")
            ListBox1.Items.Add("007. Cinnabar Ore")
            ListBox1.Items.Add("008. Cobaltite Ore")
            ListBox1.Items.Add("009. Coltan Ore")
            ListBox1.Items.Add("010. Golena Ore")
            ListBox1.Items.Add("011. Hematite Ore")
            ListBox1.Items.Add("012. Ilmenite Ore")
            ListBox1.Items.Add("013. Magnetite Ore")
            ListBox1.Items.Add("014. Molybdenite Ore")
            ListBox1.Items.Add("015. Pentlandite Ore")
            ListBox1.Items.Add("016. Sphalerite Ore")
            ListBox1.Items.Add("017. Uraninite Ore")
            ListBox1.Items.Add("018. Wolframite Ore")
            ListBox1.Items.Add("019. Cornallite Ore")
            ListBox1.Items.Add("020. Sylvite Ore")
            ListBox1.Items.Add("021. Limonite Ore")
            ListBox1.Items.Add("022. Garnierite Ore")
            ListBox1.Items.Add("023. Pentlandite Ore")
            ListBox1.Items.Add("024. Cobaltite Ore")
            ListBox1.Items.Add("025. Telluride Ore")
            ListBox1.Items.Add("026. Pegmatite Ore")
            ListBox1.Items.Add("027. Celadonite Ore")
            ListBox1.Items.Add("028. Malachite Ore")
            ListBox1.Items.Add("029. Zircon Ore")
            ListBox1.Items.Add("030. Stannite Ore")
            ListBox1.Items.Add("031. Cylindrite Ore")
            ListBox1.Items.Add("032. Tellurium Ore")
            ListBox1.Items.Add("033. Corderoite Ore")
            ListBox1.Items.Add("034. Uraninite Ore")
            ListBox1.Items.Add("035. Raw Emerald")
            ListBox1.Items.Add("036. Raw Bixbite")
            ListBox1.Items.Add("037. Raw Aquamarine")
            ListBox1.Items.Add("038. Raw Morganite")
            ListBox1.Items.Add("039. Raw Goshenite")
            ListBox1.Items.Add("040. Raw Golden Beryl")
            ListBox1.Items.Add("041. Raw Heliodor")
            ListBox1.Items.Add("042. Raw Chrysocolla")
            ListBox1.Items.Add("043. Raw Chrysoprase")
            ListBox1.Items.Add("043. Raw Diamond")
            ListBox1.Items.Add("044. Raw Feldspar")
            ListBox1.Items.Add("045. Raw Garnet")
            ListBox1.Items.Add("046. Raw Hematite")
            ListBox1.Items.Add("047. Raw Jade")
            ListBox1.Items.Add("048. Raw Jasper")
            ListBox1.Items.Add("049. Raw Kunzite")
            ListBox1.Items.Add("050. Raw Lapis Lazuli")
            ListBox1.Items.Add("051. Raw Malachite")
            ListBox1.Items.Add("052. Raw Obsidian")
            ListBox1.Items.Add("053. Raw Olivine")
            ListBox1.Items.Add("054. Raw Pyrite")
            ListBox1.Items.Add("055. Raw Citrine")
            ListBox1.Items.Add("056. Raw Ruby")
            ListBox1.Items.Add("057. Raw Sapphire")
            ListBox1.Items.Add("058. Raw Sugilite")
            ListBox1.Items.Add("059. Raw Ammolite")
            ListBox1.Items.Add("060. Raw Topaz")
            ListBox1.Items.Add("061. Raw Turquoise")
            ListBox1.Items.Add("062. Raw Tourmaline")
            ListBox1.Items.Add("063. Raw Zircon")
            ListBox1.Items.Add("064. Raw Andalusite")
            ListBox1.Items.Add("065. Raw Benitoite")
            ListBox1.Items.Add("066. Raw Onyx")
        ElseIf MISCTYPE.Text = "22. Torture" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Key")
            ListBox1.Items.Add("001. Lock")
            ListBox1.Items.Add("002. Manacle")
            ListBox1.Items.Add("003. Iron Maiden")
            ListBox1.Items.Add("004. Pillory")
            ListBox1.Items.Add("005. Stocks")
            ListBox1.Items.Add("006. Brazen Bull")
        ElseIf MISCTYPE.Text = "23. Living Charters" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Citizen Charter")
            ListBox1.Items.Add("001. Gentry Charter")
            ListBox1.Items.Add("002. Seigneur Charter")
            ListBox1.Items.Add("003. Monseigneur Charter")
            ListBox1.Items.Add("004. Baron Charter")
            ListBox1.Items.Add("005. Baroness Charter")
            ListBox1.Items.Add("006. Lord Charter")
            ListBox1.Items.Add("007. Lady Charter")
            ListBox1.Items.Add("008. Count Charter")
            ListBox1.Items.Add("009. Countess Charter")
            ListBox1.Items.Add("010. Marquis Charter")
            ListBox1.Items.Add("011. Marquess Charter")
            ListBox1.Items.Add("012. Duke Charter")
            ListBox1.Items.Add("013. Duchess Charter")
            ListBox1.Items.Add("014. Vassal King Charter")
            ListBox1.Items.Add("015. Vassal Queen Charter")
            ListBox1.Items.Add("016. Sovereign King Charter")
            ListBox1.Items.Add("017. Sovereign Queen Charter")
            ListBox1.Items.Add("018. Emperor Charter")
            ListBox1.Items.Add("019. Empress Charter")
            ListBox1.Items.Add("020. Scout Charter")
            ListBox1.Items.Add("021. Wood Guard Charter")
            ListBox1.Items.Add("022. Wood Captain Charter")
            ListBox1.Items.Add("023. Stone Guard Charter")
            ListBox1.Items.Add("024. Stone Captain Charter")
            ListBox1.Items.Add("025. Senior Captain Charter")
            ListBox1.Items.Add("026. Admiral Charter")
            ListBox1.Items.Add("027. Commander Charter")
            ListBox1.Items.Add("028. Guard Charter")
            ListBox1.Items.Add("029. Sentry Charter")
            ListBox1.Items.Add("030. Private Charter")
            ListBox1.Items.Add("031. Captain Charter")
            ListBox1.Items.Add("032. Lieutenant Charter")
            ListBox1.Items.Add("033. Sargent Charter")
            ListBox1.Items.Add("034. Corporal Charter")
            ListBox1.Items.Add("035. General Charter")
            ListBox1.Items.Add("036. Underling Charter")
            ListBox1.Items.Add("037. Blood Guard Charter")
            ListBox1.Items.Add("038. Bone Guard Charter")
            ListBox1.Items.Add("039. Blood Fiend Charter")
            ListBox1.Items.Add("040. Bone Fiend Charter")
            ListBox1.Items.Add("041. Fleshmonger Charter")
            ListBox1.Items.Add("042. Dread Lord Charter")
            ListBox1.Items.Add("043. Overlord Charter")
            ListBox1.Items.Add("044. Phalangite Charter")
            ListBox1.Items.Add("045. Hoplite Charter")
            ListBox1.Items.Add("046. Hoplomachos Charter")
            ListBox1.Items.Add("047. Lokhagos Charter")
            ListBox1.Items.Add("048. Tagmatarkhis Charter")
            ListBox1.Items.Add("049. Syntagma Charter")
            ListBox1.Items.Add("050. Taxiarchos Charter")
            ListBox1.Items.Add("051. Strategos Charter")
            ListBox1.Items.Add("052. Bestiarii Charter")
            ListBox1.Items.Add("053. Dimachaeri Charter")
            ListBox1.Items.Add("054. Mirmillones Charter")
            ListBox1.Items.Add("055. Retiarii Charter")
            ListBox1.Items.Add("056. Saggitarii Charter")
            ListBox1.Items.Add("057. Velite Charter")
            ListBox1.Items.Add("058. Essedari Charter")
            ListBox1.Items.Add("059. Andabatae Charter")
        ElseIf MISCTYPE.Text = "24. Tents" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Bedroll")
            ListBox1.Items.Add("001. Baby Blanket")
            ListBox1.Items.Add("002. Fur Blanket")
            ListBox1.Items.Add("003. Silk Blanket")
            ListBox1.Items.Add("004. Velvet Blanket")
            ListBox1.Items.Add("005. Cotton Blanket")
            ListBox1.Items.Add("006. Woolen Blanket")
            ListBox1.Items.Add("007. Cotton Bedroll")
            ListBox1.Items.Add("008. Woolen Bedroll")
        ElseIf MISCTYPE.Text = "25. Packs" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Bag")
            ListBox1.Items.Add("001. Pouch")
            ListBox1.Items.Add("002. Saddlebag")
            ListBox1.Items.Add("003. Knapsack")
            ListBox1.Items.Add("004. Backpack")
            ListBox1.Items.Add("005. Satchel")
            ListBox1.Items.Add("007. Sack")
        ElseIf MISCTYPE.Text = "26. Food" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Soup")
            ListBox1.Items.Add("001. Cheese")
            ListBox1.Items.Add("002. Vegetable")
            ListBox1.Items.Add("003. Fruit")
            ListBox1.Items.Add("004. Egg")
            ListBox1.Items.Add("005. Pheasant")
            ListBox1.Items.Add("006. Pie")
            ListBox1.Items.Add("007. Cookie")
            ListBox1.Items.Add("008. Salad")
            ListBox1.Items.Add("009. Sandwich")
            ListBox1.Items.Add("010. Ham")
            ListBox1.Items.Add("011. Rabbit")
            ListBox1.Items.Add("012. Pudding")
            ListBox1.Items.Add("013. Truffle")
            ListBox1.Items.Add("014. Mint")
            ListBox1.Items.Add("015. Licorice")
            ListBox1.Items.Add("016. Ice Cream")
            ListBox1.Items.Add("017. Taffy")
            ListBox1.Items.Add("018. Custard")
            ListBox1.Items.Add("019. Parfait")
            ListBox1.Items.Add("020. Pumpkin Bread")
            ListBox1.Items.Add("021. Brownie")
            ListBox1.Items.Add("022. Baguette")
            ListBox1.Items.Add("023. Cake")
            ListBox1.Items.Add("024. Croissant")
            ListBox1.Items.Add("025. Doughnut")
            ListBox1.Items.Add("026. Éclair")
            ListBox1.Items.Add("027. Muffin")
            ListBox1.Items.Add("028. Pastry")
            ListBox1.Items.Add("029. Roll")
            ListBox1.Items.Add("030. Tart")
            ListBox1.Items.Add("031. Loaf")
            ListBox1.Items.Add("032. Field Ration")
            ListBox1.Items.Add("033. Trail Ration")
        ElseIf MISCTYPE.Text = "27. Maps" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Map")
            ListBox1.Items.Add("001. Compass")
        ElseIf MISCTYPE.Text = "28. Bridles" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Saddle")
            ListBox1.Items.Add("001. Horseshoe")
            ListBox1.Items.Add("002. Snaffle Bridle")
            ListBox1.Items.Add("003. Pelham Bridle")
            ListBox1.Items.Add("004. Western Bridle")
            ListBox1.Items.Add("005. Weymouth Bridle")
        ElseIf MISCTYPE.Text = "29. Soaps" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Soap")
            ListBox1.Items.Add("001. Perfume")
            ListBox1.Items.Add("002. Cologne")
        ElseIf MISCTYPE.Text = "30. Pipes" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Pipe")
            ListBox1.Items.Add("001. Tobacco")
        ElseIf MISCTYPE.Text = "31. Cooking Supplies" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Kettle")
            ListBox1.Items.Add("001. Eating Utensils")
        ElseIf MISCTYPE.Text = "32. Hunting Supplies" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Trap")
            ListBox1.Items.Add("001. Fishing Lure")
            ListBox1.Items.Add("002. Net")
        ElseIf MISCTYPE.Text = "33. Transportation" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Galley")
            ListBox1.Items.Add("001. Fishing Boat")
            ListBox1.Items.Add("002. Longship")
            ListBox1.Items.Add("003. Rowboat")
            ListBox1.Items.Add("004. Sled")
            ListBox1.Items.Add("005. Warship")
            ListBox1.Items.Add("006. Canoe")
            ListBox1.Items.Add("007. Battering Ram")
            ListBox1.Items.Add("008. Catapult")
            ListBox1.Items.Add("009. Trebuchet")
            ListBox1.Items.Add("010. Ballista")
            ListBox1.Items.Add("011. Wagon")
            ListBox1.Items.Add("012. Cart")
            ListBox1.Items.Add("013. Carriage")
            ListBox1.Items.Add("014. Stagecoach")
            ListBox1.Items.Add("015. Westphalian")
            ListBox1.Items.Add("016. Hanoverian")
            ListBox1.Items.Add("017. Aegidienberger")
            ListBox1.Items.Add("018. Andalusian")
            ListBox1.Items.Add("019. Percheron")
            ListBox1.Items.Add("020. Trakehner")
            ListBox1.Items.Add("021. Zemaitukas")
            ListBox1.Items.Add("022. Pottok")
            ListBox1.Items.Add("023. Eriskay")
            ListBox1.Items.Add("024. Paso Fino")
            ListBox1.Items.Add("025. Freiberger")
            ListBox1.Items.Add("026. Lusitano")
            ListBox1.Items.Add("027. Murgese")
            ListBox1.Items.Add("028. Oldenburg")
            ListBox1.Items.Add("029. Dulmen")
            ListBox1.Items.Add("030. Connemara")
            ListBox1.Items.Add("031. Chincoteague")
            ListBox1.Items.Add("032. Cypriot")
            ListBox1.Items.Add("033. Mule")
            ListBox1.Items.Add("034. Kiang")
            ListBox1.Items.Add("035. Onager")
            ListBox1.Items.Add("036. Standardbred")
            ListBox1.Items.Add("037. Throroughbred")
            ListBox1.Items.Add("038. Azteca")
            ListBox1.Items.Add("039. Appaloosa")
            ListBox1.Items.Add("040. Dartmoor")
            ListBox1.Items.Add("041. Ladruber")
            ListBox1.Items.Add("042. Knabstrup")
            ListBox1.Items.Add("043. Karabakh")
            ListBox1.Items.Add("044. Ardennes")
            ListBox1.Items.Add("045. Belgian")
            ListBox1.Items.Add("046. Clydesdale")
            ListBox1.Items.Add("047. Fell")
            ListBox1.Items.Add("048. Faroe")
            ListBox1.Items.Add("049. Poitou")
            ListBox1.Items.Add("050. Bukhts")
            ListBox1.Items.Add("051. Bactrian")
            ListBox1.Items.Add("052. Wyrm")
            ListBox1.Items.Add("053. Giehe")
            ListBox1.Items.Add("054. Trokk")
            ListBox1.Items.Add("055. Derva")
        ElseIf MISCTYPE.Text = "34. Medical Supplies" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Bandage")
            ListBox1.Items.Add("001. Splint")
            ListBox1.Items.Add("002. Needle")
            ListBox1.Items.Add("003. Thread")
        ElseIf MISCTYPE.Text = "35. Alcoholic Beverages" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Dark Dwarven Ale")
            ListBox1.Items.Add("001. Blackberry Ale")
            ListBox1.Items.Add("002. Spiced Apple Ale")
            ListBox1.Items.Add("003. Frothy Blue Ale")
            ListBox1.Items.Add("004. Wicked Ale")
            ListBox1.Items.Add("005. Halfling Ale")
            ListBox1.Items.Add("006. Dark Amber Ale")
            ListBox1.Items.Add("007. Apple Ale")
            ListBox1.Items.Add("008. Summer Ale")
            ListBox1.Items.Add("009. Rich Dwarven Ale")
            ListBox1.Items.Add("010. Birch Beer")
            ListBox1.Items.Add("011. Ginger Beer")
            ListBox1.Items.Add("012. Frothy Dark Beer")
            ListBox1.Items.Add("013. Hearty WHeat Beer")
            ListBox1.Items.Add("014. Strawberry Brandy")
            ListBox1.Items.Add("015. Raspberry Brandy")
            ListBox1.Items.Add("016. Elven Brandy")
            ListBox1.Items.Add("017. Fiery Brandy")
            ListBox1.Items.Add("018. Golden Brandy")
            ListBox1.Items.Add("019. Elven Peach Brandy")
            ListBox1.Items.Add("020. Wicked Brew")
            ListBox1.Items.Add("021. Red Champagne")
            ListBox1.Items.Add("022. Peach Champagne")
            ListBox1.Items.Add("023. Sparkling Champagne")
            ListBox1.Items.Add("024. Hard Cider")
            ListBox1.Items.Add("025. Apple Cide")
            ListBox1.Items.Add("026. Cocoa Surprise")
            ListBox1.Items.Add("027. Linnards Grog")
            ListBox1.Items.Add("028. Hard Lemonade")
            ListBox1.Items.Add("029. Dwarven Lager")
            ListBox1.Items.Add("030. Plum Liqueur")
            ListBox1.Items.Add("031. Herbal Liqueur")
            ListBox1.Items.Add("032. Spiced Honey Mead")
            ListBox1.Items.Add("033. Honey Mead")
            ListBox1.Items.Add("034. Barley and Oat Mead")
            ListBox1.Items.Add("035. Thick Mead")
            ListBox1.Items.Add("036. Pungent Pilsner")
            ListBox1.Items.Add("037. Pilsner Beer")
            ListBox1.Items.Add("038. Vomicheti's Premium Port")
            ListBox1.Items.Add("039. Tartberry Rum")
            ListBox1.Items.Add("040. Spiced")
            ListBox1.Items.Add("041. Peppermint Rum")
            ListBox1.Items.Add("042. Brodans Spirits")
            ListBox1.Items.Add("043. Sourdough Whiskey")
            ListBox1.Items.Add("044. Dwarven Whiskey")
            ListBox1.Items.Add("045. Red Wine")
            ListBox1.Items.Add("046. White Wine")
            ListBox1.Items.Add("047. Winterberry Wine")
        ElseIf MISCTYPE.Text = "36. Scabbard" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Sheath")
            ListBox1.Items.Add("001. Wrist Sheath")
            ListBox1.Items.Add("002. Harness")
            ListBox1.Items.Add("003. Ankle Sheath")
            ListBox1.Items.Add("004. Back Sheath")
            ListBox1.Items.Add("005. Baldric")
        ElseIf MISCTYPE.Text = "37. Chemicals" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Chromium Sulfate Chemical")
            ListBox1.Items.Add("001. Gluteraldehyde Chemical")
            ListBox1.Items.Add("002. Polymer Chemical")
            ListBox1.Items.Add("003. Aluminium Salt Chemical")
            ListBox1.Items.Add("004. Lime Salt Chemical")
            ListBox1.Items.Add("005. Hot Water")
            ListBox1.Items.Add("006. Reducing Agent")
            ListBox1.Items.Add("007. Lead Dust")
            ListBox1.Items.Add("008. Tin Dust")
            ListBox1.Items.Add("009. Iron Dust")
            ListBox1.Items.Add("010. Copper Dust")
            ListBox1.Items.Add("011. Mercury Dust")
            ListBox1.Items.Add("012. Silver Dust")
            ListBox1.Items.Add("013. Gold Dust")
            ListBox1.Items.Add("014. Phosphorus Dust")
            ListBox1.Items.Add("015. Arsenic Dust")
            ListBox1.Items.Add("016. Antimony Dust")
            ListBox1.Items.Add("017. Boron Dust")
            ListBox1.Items.Add("018. Magnesium Dust")
            ListBox1.Items.Add("019. Platinum Dust")
            ListBox1.Items.Add("020. Potassium Dust")
            ListBox1.Items.Add("021. Stone Dust")
            ListBox1.Items.Add("022. Zinc Dust")
            ListBox1.Items.Add("023. Vitriol Agent")
            ListBox1.Items.Add("024. Quartz Agent")
            ListBox1.Items.Add("025. Cinnabar Agent")
            ListBox1.Items.Add("026. Pyrite Agent")
            ListBox1.Items.Add("027. Orpiment Agent")
            ListBox1.Items.Add("028. Galena Agent")
            ListBox1.Items.Add("029. Sulfur Prime")
            ListBox1.Items.Add("030. Mercury Prime")
            ListBox1.Items.Add("031. Salt Prime")
        ElseIf MISCTYPE.Text = "38. Tools" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Knife")
            ListBox1.Items.Add("001. Broach")
            ListBox1.Items.Add("002. Scissors")
            ListBox1.Items.Add("003. Scalpel")
            ListBox1.Items.Add("004. Shovel")
            ListBox1.Items.Add("005. Hoe")
            ListBox1.Items.Add("006. Rake")
            ListBox1.Items.Add("007. Nail")
            ListBox1.Items.Add("008. Screw")
            ListBox1.Items.Add("009. Chisel")
            ListBox1.Items.Add("010. Mallet")
            ListBox1.Items.Add("011. Pitchfork")
            ListBox1.Items.Add("012. Spade")
            ListBox1.Items.Add("013. Screwdriver")
            ListBox1.Items.Add("014. Handsaw")
            ListBox1.Items.Add("015. Pliers")
            ListBox1.Items.Add("016. Clamp")
            ListBox1.Items.Add("017. Sponge")
            ListBox1.Items.Add("018. Sledge")
            ListBox1.Items.Add("019. Wood Axe")
            ListBox1.Items.Add("020. Crowbar")
            ListBox1.Items.Add("021. Tongs")
            ListBox1.Items.Add("022. File")
            ListBox1.Items.Add("023. Fletchers Knife")
            ListBox1.Items.Add("024. Fletchers Divit Jaw")
            ListBox1.Items.Add("025. Jeweler Hammer")
            ListBox1.Items.Add("026. Mandrel")
            ListBox1.Items.Add("027. Stamp")
            ListBox1.Items.Add("028. Brush")
            ListBox1.Items.Add("029. Fletchers Hammer")
            ListBox1.Items.Add("030. Buffing Brush")
            ListBox1.Items.Add("031. Carpenter Tools")
            ListBox1.Items.Add("032. Finger Iron Pick")
            ListBox1.Items.Add("033. Blacksmith Hammer")
        ElseIf MISCTYPE.Text = "39. Pets" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Akita Inu")
            ListBox1.Items.Add("001. Bulldog")
            ListBox1.Items.Add("002. Pitbull Terrier")
            ListBox1.Items.Add("003. Staffordshire Terrier")
            ListBox1.Items.Add("004. Argentine Dogo")
            ListBox1.Items.Add("005. Boston Terrier")
            ListBox1.Items.Add("006. Bull Terrier")
            ListBox1.Items.Add("007. Dogue de Bordeaux")
            ListBox1.Items.Add("008. English Mastiff")
            ListBox1.Items.Add("009. Neapolitan Mastiff")
            ListBox1.Items.Add("010. Manchester Terrier")
            ListBox1.Items.Add("011. Shar Pei")
            ListBox1.Items.Add("012. Tosa")
            ListBox1.Items.Add("013. Cheetah")
            ListBox1.Items.Add("014. Bengal Tiger")
            ListBox1.Items.Add("015. Balinese Tiger")
            ListBox1.Items.Add("016. Caspian Tiger")
            ListBox1.Items.Add("017. Sumatran Tiger")
            ListBox1.Items.Add("018. Siberian Tiger")
            ListBox1.Items.Add("019. Amur Tiger")
            ListBox1.Items.Add("020. Leopard")
            ListBox1.Items.Add("021. Snow Leopard")
            ListBox1.Items.Add("022. Clouded Leopard")
            ListBox1.Items.Add("023. Jaguar")
            ListBox1.Items.Add("024. Lion")
            ListBox1.Items.Add("025. Cougar")
            ListBox1.Items.Add("026. Bobcat")
            ListBox1.Items.Add("027. Iberian Lynx")
            ListBox1.Items.Add("028. Ocelot")
            ListBox1.Items.Add("029. Cooper's Hawk")
            ListBox1.Items.Add("030. Chanting Goshawk")
            ListBox1.Items.Add("031. Peregrine Falcon")
            ListBox1.Items.Add("032. Prairie Falcon")
            ListBox1.Items.Add("033. Swamp harrier")
            ListBox1.Items.Add("034. Osprey")
            ListBox1.Items.Add("035. Harpy Eagle")
            ListBox1.Items.Add("036. Golden Eagle")
            ListBox1.Items.Add("037. Nubian Vulture")
            ListBox1.Items.Add("038. Griffin Vulture")
            ListBox1.Items.Add("039. Lammergeier")
            ListBox1.Items.Add("040. Jackal Buzzard")
            ListBox1.Items.Add("041. Pariah Kite")
            ListBox1.Items.Add("042. Brahminy Kite")
            ListBox1.Items.Add("043. Burrowing Owl")
        ElseIf MISCTYPE.Text = "40. Harvestable Food" Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add("000. Malus")
            ListBox1.Items.Add("001. Aronia")
            ListBox1.Items.Add("002. Crataegus")
            ListBox1.Items.Add("003. Eryobotrya Japonica")
            ListBox1.Items.Add("004. Mespilus Germanica")
            ListBox1.Items.Add("005. Pyrus")
            ListBox1.Items.Add("006. Cydonia Oblonga")
            ListBox1.Items.Add("007. Prunus Armeniaca")
            ListBox1.Items.Add("008. Prunus Avium")
            ListBox1.Items.Add("009. Prunus Serotina")
            ListBox1.Items.Add("010. Prunus Cerasus")
            ListBox1.Items.Add("011. Prunus Virginiana")
            ListBox1.Items.Add("012. Sorbus")
            ListBox1.Items.Add("013. Prunus Persica")
            ListBox1.Items.Add("014. Rubus Armeniacus")
            ListBox1.Items.Add("015. Rubus Strigosus")
            ListBox1.Items.Add("016. Rubus Vaccinium")
            ListBox1.Items.Add("017. Rubus Spectabilis")
            ListBox1.Items.Add("018. Rubus Parvilflorus")
            ListBox1.Items.Add("019. Rubus Phoenicolasius")
            ListBox1.Items.Add("020. Vaccinium Cyanococcus")
            ListBox1.Items.Add("021. Vaccinium Oxycoccus")
            ListBox1.Items.Add("022. Diospyros Virginiana")
            ListBox1.Items.Add("023. Hylocereus Undatus")
            ListBox1.Items.Add("024. Opuntia Cactaceae")
            ListBox1.Items.Add("025. Carnegiea Gigantea Cactaceae")
            ListBox1.Items.Add("026. Cucurbita Moschata")
            ListBox1.Items.Add("027. Cucurbita Maxima")
            ListBox1.Items.Add("028. Cucumis Metuliferus")
            ListBox1.Items.Add("029. Cucumis Melo")
            ListBox1.Items.Add("030. Vitis Vitaceae")
            ListBox1.Items.Add("031. Olea Europea Oleaceae")
            ListBox1.Items.Add("032. Punica Granatum Punicaceae")
            ListBox1.Items.Add("033. Citrus Paradisi")
            ListBox1.Items.Add("034. Citrus Limon")
            ListBox1.Items.Add("035. Citrus Hystix")
            ListBox1.Items.Add("036. Citrus Reticulata")
            ListBox1.Items.Add("037. Citrus Sinesis")
            ListBox1.Items.Add("038. Psidium guajava")
            ListBox1.Items.Add("039. Fortunella")
            ListBox1.Items.Add("040. Persea Americana")
            ListBox1.Items.Add("041. Arachis Hypogaea")
            ListBox1.Items.Add("042. Mangifera Indica")
            ListBox1.Items.Add("043. Solanum Guitoense")
            ListBox1.Items.Add("044. Ananas Comosus")
            ListBox1.Items.Add("045. Artocarpus ALtilis")
            ListBox1.Items.Add("046. Cocus Arecaceae")
            ListBox1.Items.Add("047. Durio Bombacaceae")
            ListBox1.Items.Add("048. Chrysophyllum Cainito")
            ListBox1.Items.Add("049. Tamarindus Indica")
            ListBox1.Items.Add("050. Syzygium Samarangense")
            ListBox1.Items.Add("051. Amaranthus Cruentus")
            ListBox1.Items.Add("052. Brassica Oleracea")
            ListBox1.Items.Add("053. Lactuca Sativa")
            ListBox1.Items.Add("054. Spinacia Oleracea")
            ListBox1.Items.Add("055. Nasturtium Officinale")
            ListBox1.Items.Add("056. Claytonia Perfoliata")
            ListBox1.Items.Add("057. Asparagus Officinalis")
            ListBox1.Items.Add("058. Apium Graveolens")
            ListBox1.Items.Add("059. Foeniculum Vulgare")
            ListBox1.Items.Add("060. Allium Sativum")
            ListBox1.Items.Add("061. Allium Ampeloprasum")
            ListBox1.Items.Add("062. Allium Cepa")
            ListBox1.Items.Add("063. Daucus Carota")
            ListBox1.Items.Add("064. Solanum Tuberosum")
            ListBox1.Items.Add("065. Raphanus Sativus")
            ListBox1.Items.Add("066. Brassica Rapa")
            ListBox1.Items.Add("067. Callophyllis Variegata")
            ListBox1.Items.Add("068. Palmaria Palmata")
            ListBox1.Items.Add("069. Laminaria Japonica")
            ListBox1.Items.Add("070. Porphyra")
            ListBox1.Items.Add("071. Undaria Pinnatifida")
        Else
            ListBox1.Items.Clear()
            ListBox1.Items.Add("_INVALID TYPE_")
        End If
        ListBox1.SelectedIndex = 0
    End Sub

    Private Sub GenerateDynamicStringAndClose(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ERRORnum As Short = 0
        Dim DYNAMvar As String = "["
        If DropMoney.Checked = True Then
            DYNAMvar += "0,"
            If Rational_Money.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Weapon_DefaultSentience.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Money_DepLevel.Checked = True Then
                If Money_Wealthy.Checked = True Then
                    DYNAMvar += "1,"
                ElseIf Money_Welltodo.Checked = True Then
                    DYNAMvar += "2,"
                ElseIf Money_Regular.Checked = True Then
                    DYNAMvar += "3,"
                ElseIf Money_Notsowealthy.Checked = True Then
                    DYNAMvar += "4,"
                ElseIf Money_Poor.Checked = True Then
                    DYNAMvar += "5,"
                End If
            Else
                DYNAMvar += "0,"
            End If
            If Money_Willbeatleast.Checked = True Then
                DYNAMvar += "{" + Money_atleastvern.Text + "V," + Money_atleastdover.Text + "D," + Money_atleastsovern.Text + "S},"
            Else
                DYNAMvar += "?,"
            End If
            If Money_Willnotexcede.Checked = True Then
                DYNAMvar += "{" + Money_notexcedevern.Text + "V," + Money_notexcededover.Text + "D," + Money_notexcedesovern.Text + "S},"
            Else
                DYNAMvar += "?,"
            End If
            If Money_Fixed.Checked = True Then
                DYNAMvar += "{" + Money_fixedvern.Text + "V," + Money_fixeddover.Text + "D," + Money_fixedsovern.Text + "S}]"
            Else
                DYNAMvar += "0]"
            End If
        ElseIf DropWeapon.Checked = True Then
            DYNAMvar += "1,"
            If Rational_WeaponArchetype.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Weapon_DefaultSentience.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Weapon_DefaultWeight.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Weapon_LuckyLevel.Checked = True Then
                DYNAMvar += "2,"
            ElseIf Weapon_DefaultLevel.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Weapon_FixedType.Checked = True Then
                DYNAMvar += Mid(WeaponType.Text, 1, 2) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Weapon_FixedMaterial.Checked = True Then
                DYNAMvar += Mid(WeaponMaterial.Text, 1, 2) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Weapon_FixedCraftsmanship.Checked = True Then
                DYNAMvar += Mid(WeaponCraftsmanship.Text, 1, 2) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Weapon_FixedQuality.Checked = True Then
                DYNAMvar += Mid(WeaponQuality.Text, 1, 1) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Weapon_FixedPrefix.Checked = True Then
                DYNAMvar += Mid(WeaponPrefix.Text, 1, 2) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Weapon_FixedSuffix.Checked = True Then
                DYNAMvar += Mid(WeaponSuffix.Text, 1, 2) + "]"
            Else
                DYNAMvar += "?]"
            End If
        ElseIf DropArmor.Checked = True Then
            DYNAMvar += "2,"
            If Rational_Armor.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Armor_DefaultSentience.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Armor_DefaultWeight.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Armor_LuckyLevel.Checked = True Then
                DYNAMvar += "2,"
            ElseIf Armor_DefaultLevel.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Armor_LuckyClass.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Armor_FixedType.Checked = True Then
                DYNAMvar += Mid(ArmorTypeBox.Text, 1, 2) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Armor_FixedMaterial.Checked = True Then
                DYNAMvar += Mid(ArmorMaterialBox.Text, 1, 2) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Armor_FixedCraftsmanship.Checked = True Then
                DYNAMvar += Mid(ArmorCraftsmanshipBox.Text, 1, 2) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Armor_FixedQuality.Checked = True Then
                DYNAMvar += Mid(ArmorQualityBox.Text, 1, 1) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Armor_FixedPrefix.Checked = True Then
                DYNAMvar += Mid(ArmorPrefixBox.Text, 1, 2) + ","
            Else
                DYNAMvar += "?,"
            End If
            If Armor_FixedSuffix.Checked = True Then
                DYNAMvar += Mid(ArmorSuffixBox.Text, 1, 2) + "]"
            Else
                DYNAMvar += "?]"
            End If
        ElseIf DropMiscellaneous.Checked = True Then
            DYNAMvar += "3,"
            If Rational_MiscellaneousArchetype.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Miscellaneous_DefaultLevel.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Miscellaneous_DefaultSentience.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Miscellaneous_DefaultWeight.Checked = True Then
                DYNAMvar += "1,"
            Else
                DYNAMvar += "0,"
            End If
            If Miscellaneous_FixedType.Checked = True Then
                DYNAMvar += Mid(MISCTYPE.Text, 1, 2) + ","
                DYNAMvar += "" + Mid(ListBox1.SelectedItem, 1, 3) + "]"
            Else
                DYNAMvar += "?]"
            End If
        Else
            ERRORnum += 1
        End If
        If MobEditor.SENDval = "1" Then
            MobEditor.DynamicItem1.Text = DYNAMvar
        ElseIf MobEditor.SENDval = "2" Then
            MobEditor.DynamicItem2.Text = DYNAMvar
        ElseIf MobEditor.SENDval = "3" Then
            MobEditor.DynamicItem3.Text = DYNAMvar
        ElseIf MobEditor.SENDval = "4" Then
            MobEditor.DynamicItem4.Text = DYNAMvar
        ElseIf MobEditor.SENDval = "5" Then
            MobEditor.DynamicItem5.Text = DYNAMvar
        End If
        Me.Close()
    End Sub

    Private Sub MobEditorDropDynamicLoad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Application.AddMessageFilter(Me)
    End Sub
End Class